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EDITORIAL 


Près de mille réponses au sondage du numéro 

12! Les premiers traitements statistiques four- 
: nissent des résultats intéressants mais dont cer- 
tains inclinent à la réflexion. 




























Par exemple savez-vous que le lectorat de sexe 
féminin culmine à 1,4 % ; certes, c'est un phéno- 
mène assez connu que les jeunes filles sont 
moins attirées que les jeunes gens par l'informa- 
tique individuelle, mais dans cette proportion ! || 
ÿ a de quoi étonner : pourvu que l'informatique 
de loisir n'aille pas rejoindre la pèche et le sport 
télévisé dans la catégorie des détentes exclusi- 
vement masculines; elle mérite beaucoup 
mieux. Les scientifiques disent que l'informati- 
que est une technique d'avenir et les poêtes que 
«la femme est l'avenir de l'homme » : il est donc 
urgent qu'à l'avenir les femmes s'intéressent da- 
vantage à l'informatique. C.Q.F.D. 


Autre chiffre, autre interrogation : les lecteurs se 
répartissent massivement en deux classes d'age 
dominantes, 15 et 35 ans. Voici l'interprétation 
la plus plausible : on s'intéresse à l'informatique 
ndividuelle à l'adolescence, puis lorsqu'on est 
jeune père pour s'amuser avec ses enfants. Mais 
alors, les étudiants, les professionnels, depuis 
une dizaine d'années que l'informatique grand 
public existe ont remisé leur système au pla- 
card ? Il y a pourtant tellement de possibilités en 
termes d'applications pratiques (graphiques, 
gestion, etc.)...à méditer. 


Voyons midi à notre porte : combien d'entre 
oùs qui possèdent un Sinclair, envisagent-ils de 
passer à Un Sinclair plus gros (ZX81-Spectrum, 
Spectrum-QL ou ZX81-QL ? Un sur trois (en 
gros) ; c'est tout ? Déjà blasé ? Dommage. 


Fort heureusement, l'impression générale qui se 
dégage du sondage est elle, nettement positive : 
pour la plupart d'entre vous, l'informatique est le 
premier des loisirs et ORDI-5 plait bien plus qu'il 
e déplait ; ça, c'est Un bon résultat, mais nous 
"y sommes pas pour l'essentiel : ORDI-5 n'est-il 
pas fait par ses lecteurs, c'est même la qua- 
rième qualité citée après l'existence d’une re- 
ue Sinclair, le nombre de programmes valables 
t le caractère varié des sujets. 
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la version ancien clavier à ce prix; ça 
commence à valoir le coup d'en acheter plu- 
sieurs par famille pour développer des logiciels 
de communication. 


Le QL est désormais proposé, comme ses petits 
frères SINCLAIR par une grande maison de 
vente par correspondance installée dans le Nord 
(avec ça, si vous ne devinez pas l). C'est peut- 
être le signe de la démocratisation tant attendue 
pour ce produit. 





et anoblissement. 





Démocratisation 





Un Spectrum 48K (PAL) pour moins de 1000 F! 
Nous n'en avons pas cru nos yeux et pourtant 
les faits sont là : telle grande chaine de commer- 
cialisation HI FI VIDEO parisienne distribue bien 


OINGLAIR 


CHEZ 


Basic approfondi, 





Le logiciel d'accompagement du QL, composé 
de quatre instruments intégrés (ABACUS, AR- 
CHIVE, EASEL et QUILL) a été adapté par 
PSION pour l'IBM PC, une preuve de plus, s’il en 
était besoin de la qualité de ce package, qui 
donnera des leçons de simplicité aux utilisateurs 
du PC. Ainsi modifié (capacités notemment), ce 
package s'appelle X-CHANGE. 


La liste des instructions et 
des commandes, les mnémoniques, les astuces. 
Clefs pour le ZX 81 - 95,00 FF 
Clefs pour le ZX Spectrum - 95,00 FF 
par Jean-François Séhan 


itiation au langage machine 
La pratique du ZX 81 - tome 1 - 85,00 FF 
La pratique du ZX Spectrum - tome 1 - 95,00 FF 
par Xavier Linant de Bellefonds 


Programmation en langage machine 
La pratique du ZX 81 - tome 2 — 95,00 FF 
La pratique du ZX Spectrum - tome 2 - 95,00 FF 
par Marcel Henrot 





En vente en librairie, en boutique informatique 








P.S:L. DIFFUSION B.P. 86 
77402 LAGNY-SUR-MARNE CEDEX 
Tél.: (6) 006,44.35 
Télex: PSIDIF 600978 F 








et auprès de P.S.L. Diffusion 
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Toujours plus gros tel est mon 
device. 





OPUS commercialise un lecteur de disquette 
pour le Spectrum au prix de 200 livres l'unité 
1320 livres les deux unités), le DISCOVERY 1 ; ce 
lecteur fonctionne avec des disquettes 3,5 pou- 
ces et comprend de multiples connecteurs qui le 
rendent transparent, c'est à dire qu'il ne gène 
pas les autres extensions du système. 
ll est parfaitement possible de transformer son 
QL en ordinateur professionnel en y mettant le 
prix : Quest International Computers annonce la 
création d'un système complet avec console, 
double disquette et logiciels professionnels fai- 
sant un large usage des fenètres graphiques. 
Le « YSMegaBasic » une version délirante 
(22k !) du Basic pour le Spectrum qui comprend 
trois polices de caractères, trois tailles de carac- 
tères, 64 colonnes, l'organisation de fenêtres, 
etc. est due à un programmeur anglais Mike 
Learman, et ne coute qu'une dizaine de livres. 


Made in France 





AUTOPHIL est un logiciel tout nouveau pour ZX 
Spectrum commercialisé par RENECO : il per- 
met la programmation d'automatismes 
complexes à l'aide d'un langage de programma- 
tion simple, tandis que jusqu'à présent la plupart 
des entrées sorties impliquaient de l'utilisateur 
une programmation soignée, de préférence en 
langage-machine pour être efficaces. 

Un moniteur vidéo pour micro-ordinateurs bien 
de chez nous, enfin, avec haute résolution et 
donc bien adapté au QL : c'est le MC14 EU- 
REKA sera bientot diffusé sur le marché français 
aux environs de 2750 F. 
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. Bons points. 





En France, Sinclair est leader sur le marché des 
GEABLNE domestiques avec 32 % du parc ins- 
tallé. 

Direco International annonce la disponibilité de 
140 logiciels éducatifs « Sinclair à l'école » sur 
ZX 81, ZX Spectrum et Spectrum Plus, couvrant 
l'ensemble des classes de la maternalle à la ter- 
minale. Tous ces logiciels ont été développés 
avec le concours de professeurs de l'Education 
Nationale, avant le lancement du programme 
« Informatique pour tous ». Direco rappelle à ce 
sujet que 8000 ordinateurs Sinclair sont déjà uti- 
lisés dans les écoles françaises. 


et mauvaise passe. 





La firme Sinclair, sans doute victime de son suc- 
cès, a de grosses difficultés de trésorerie : elle a 
dû passer des accords avec un groupe de 
presse important pour se renflouer. Il n'est pas 
possible de dire à l'heure actuelle quelles chan- 
gements ceci va introduire dans la ligne de pro- 
duction de Sinclair Research. 

L'espace QL de l'avenue Hoche, belle vitrine du 
nouveau Sinclair, a été récemment fermé ; espé- 
rons que ceci ne soit pas de trop mauvais au- 
gure pour la cadence de commercialisation du 
QL en France. 

Les microcartouches ressemblent un peu aux 
produits des magasins d'état dans les pays de 
l'Est : quand on en trouvait, elles étaient à 80 F; 
depuis qu'on n'en trouve plus du tout, on les a 
royalement baissées à 37 F... 


ADRESSES DES SOCIETES 
MENTIONNEES 





EUREKA Informatique, 39 rue Victor Massé, 
75009 PARIS.Opus Supplies Ltd, 55 Ormside 
Way, Holmethorpe Industrial Estate, Redhill, 
Surrey, GB. 

Quest International Computers, School Lane, 
Chandlers Ford, Hants, S05 3YY, GB 
RENECO, 37 Brd Biron, 93400 SAINT OUEN 
YSMegaBasic, Offer, Sportscene Specialist 
Press, 14 Rathbone Place, London, WIP 1DE 














Boîte à outils pour le navigateur 
de plaisance 


Lucien STREBLER 
MEGA-O Poche 








Parmi les activités de loisir justiciables d'une in- 
formatisation, la navigation maritime est un do- 
maine rêvé pour le programmeur que les PAC- 
MAN et les astéroïdes n'amusent plus. 

ll faut avoir navigué pour prendre vraiment 
conscience de l'importance que revêtent les cal- 
culs numériques et géométriques lors du dérou- 
lement d'un voyage, qu'il soit long ou court. 
L'auteur de ce petit livre semble précisément 
appartenir à la famille des « vieux loups de mer » 
et sait visiblement de quoi il parle : le mal de 
mer, il connaît ! 

Lucien Strebler a développé une quinzaine de 
programmes couvrant l'essentiel des problèmes 
se posant au plaisancier sur trois machines dis- 
tinctes : une Simple calculatrice programmable 
TI 59 (Texas Instruments), un petit Casio 
FX 702 P, et notre vieil ami le SPECTRUM. 

À vrai dire, et sans que cela ne retire quoi que ce 
soit à la qualité des programmes destinés au 
SINCLAIR, nous imaginons mieux les deux pre- 
mières machines « sur le terrain » : récepteur TV 
et magnétophone ne font pas partie de l'arme- 
ment de première nécessité d'une petite unité ! 
Par contre, le SPECTRUM se prête fort bien à la 
préparation à terre d'un projet de voyage, une 
machine plus « légère » pouvant prendre le relais 
à la mer (les formules utilisées sont les mêmes). 
Deux logiciels seulement sont fournis pour le 
SPECTRUM : navigation côtière et navigation 
hauturière : ils rassemblent à eux seuls tous les 
petits programmes destinées aux machines « de 
poche ». On ne dispose pas pour rien de 16 ou 
48 K de mémoire vive, que diable ! 

Ce livre nous semble un « must » pour tout navi- 
gateur équipé de moyens informatiques, mais il 
peut éventuellement intéresser, à titre de curio- 
sité, les amoureux de la géométrie désireux de 
rêver, au coin du feu, à l'appel du grand large. 


RG: 








Deux livres lus pour vous 





Gaston MICLOT : 
Micro-gestionnaire pour 
Sinclair Mega-O poche 





Nous avions déjà eu l'occasion de parler de 
Gaston MICLOT dans cette rubrique lors de la 
sortie de son ouvrage « MICRO-COMPTA SUR 
SINCLAIR » : voici la suite ! 

Moins de programmes (14), mais plus longs car 
prenant en charge le « traitement de l'informa- 
tion », vocation première de l'informatique. 
Construction de graphes en tous genres, mani- 
pulation de tableaux, traitement de textes sim- 
plifié et fichiers sont autant d'outils directement 
empruntés aux professionnels. 

Seulement, l'auteur pousse ici le bouchon un 
peu loin! Si nous avions beaucoup apprécié, 
dans son précédent petit livre, le choix consis- 
tant à n'utiliser l'ordinateur qu'entre une saisie 
au clavier de données et une impression sur pa- 
pier des résultats, en revanche nous ne pouvons 
pas croire sérieusement qu'une entreprise fera 
imprimer sa correspondance commerciale par 
une ALPHACOM ou une GP 50! 

Personne n'acceptera non plus de passer six 
fois plus de temps qu'à la main pour mettre à 
jour un fichier ou seulement le consulter... De 
toute façon, la fiabilité de l'enregistrement sur 
cassette n'est pas suffisante pour Un usage pro- 
fessionnel sur des informations importantes. 

Par contre, les différentes représentations gra- 
phiques proposées peuvent rendre des services 
lorsqu'une vue d'ensemble rapide de l'évolution 
d'une situation est recherchée. 

En fait, bien que les programmes de l'ouvrage 
aient exclusivement été écrits sur ZX 81 (pas un 
seul listing pour SPECTRUM), nous considérons 
plutôt ce livre comme un recueil de fort bonnes 
idées, mais que l'on ne pourra appliquer décem- 
ment que Sur un système plus performant 
(SPECTRUM et MICRODRIVE par exemple). 


PiG: 
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Coté court 





Le petit problème sur le jeu de dés (n°11) où il fallait simuler le jet d'un dé 
avec ocurrence aléatoire des six faces a bien challengé les lecteurs 
d’ORDI-5 : des solutions très élégantes frisant le quart de kilo octet 
arrivent encore. Plusieurs d'entre elles descendent bien en-dessous des 
225 octets de la solutions proposée au numéro 12, mais ne se conforment 
pas tout à fait au « cahier des charges » c’est-à-dire qu’elles dessinent un 
cadre plus petit, ou des points-pixels au lieu de points-pavés. Nous ne 
résistons pas cependant au plaisir de vous soumettre trois d’entre elles, 
parce qu'elles représentent un effort d'analyse remarquable qui est de la 


très bonne programmation. 





Déde7à5 





La première est due à Eric CHEVALIER, que 
nous laissons exposer sa réalisation : 





1 LET U=SGN PI 
ER BEN 
2 ERINT mm ; 214; A9 > A$ » 
Ter pé=" 4086206" 
S LET ASINTOGRNBSINT PT#D) #0 
? LÉT NatMmINT CAD) #D} 
$ FÜR Lau FU 4 
679 LET GSINT (URL PS#UN#T) /INT 
19 PRINT AT C4U,UAL PS UN4I) 4U- 
SeINT PE" ge 
11 Next À 





Votre programme de lancement d'un dé peut- 
être, me semble-t-il, réduit à 198 octets. 

Le premier gain porte sur le dessin du dé. On 
utilise non plus un carré de 7 sur 7, mais un carré 
de 5 sur 5, Quelques « astuces » de dessin per- 
mettent d'obtenir un dé plus petit mais tout à fait 
lisible. 


Le gain le plus important consiste dans la réduc- 
tion de la chaine de caractères représentant les 
diverses positions des points. J'utilise comme 
vous la division entière et le reste d'une division, 
mais par « 3 ». 


Sept octets suffisent à représenterles différentes 
positions des points. En effet ilf aut partir du 
principe que l'on peut obtenir une valeur du dé 
par l'addition de deux ou plusieurs valeurs, ou 
bien qu'il y a dans une Valeur des éléments 
d'une valeur inférieure. Par exemple « 3 » s'ob- 
tient par l'addition des dessins de « 1 » et de 
«2». 


Soit À la valeur aléatoire obtenue à la ligne 6 du 
programme : la ligne 7 teste la parité de cette 
valeur. Si À est impair N=0, si À est pair 
N=1.- si N = O0 la section de chaine utilisée 
commencera au début de la chaine et le point 
central sera dessiné (A impair) 
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— sinon la section de chaîne commencera au 
deuxième caractère de la chaîne (A pair) 

Les valeurs contenues dans la chaîne corres- 
pondent à la représentation du dé par le tableau 


suivant: y 
an 





3 4 5 s 

6 7 B 

Yeleur de A Valeurs utilisées dans la chaîne 

4 

2 0 8 

8 4 0 8 

4 0 8 6 2 

5 4 0 8 6 2 

6 018 6 2 8 5 
4 
@ 

1 LETU = SGN PI EX 

2 LETD=U+U 

3 LET A$ = (CIM 

4 PRINT «DE», A$,, A$,, A$,, 


CORRE » 
5 LET P$ = « 4086235 » 
6 INT (RND * INT PI * D) + U 
Te (A = INT (A/D) * D) 
8 FORI=UTO A 
9 
0 





LET C = INT (VAL P$ (N + I)/INT PI) 
PRINT AT C + U, VAL P$ (N+1) + U—C 

*INT Pl; «Cl» 
11 NEXTI 


1 - Dessin du cadre 


Ligne 3 : 2 caractères graphiques (touche 8) et 

8 espaces 

Ligne 4 : 1 — 5 caractères graphiques (tou- 
ches 3, 6, 6, 6, 6) 
2— 5 caractères graphiques (tou- 
ches 8, 6, 6, 6, Q) 


2 — Points 
Ligne 10 1 caractère graphique (touche 3) 


Eric CHEVALIER 











Pourquoi pas un dé noir à 
points blancs ? 





La solution de Didier GRAND descend à 185 oc- 
tets en utilisant un décodage plus simple de la 
chaine-guide : la vidéo inverse est très jolie, 
mais, petit malin, supprime les difficultés inhé- 
rentes au dessin du cadre; très fort quand 
même : 






1 LET UaSGN PI 

8 LET D=U# 

3 LET À : 

4 LET 8 1153135 

11 FOR I=Ù TO CODE " 

AR 

21 LET N=INT (RNDY#CODE ‘“af") +1 
S21 FOR I=INT (N/D) #DaD4D TO Ds 
IN/DmINT (N/D)) STEP -D 
S2,PRINT VAL B#(I-U) ,VAL B$ 
35 NEXT I 








Clin d'oeil vers l’'assembleur 





Bien sûr, nous n'avions pas exclu explicitement 
le langage machine et des petits futés en ont 
profité pour trouer le plancher des 100 octets, 
c'est le cas notamment de J.-M. CORBISIER qui 
nous propose deux versions dont une spéciale- 
ment économique en 73 octets ! 





1 REM (99 octets) 
18 RAND USR VAL ‘16514 


16514:253,126,52,1,6,57,145 
16521:46,253,33,174,64,229,133 
16528:111,78,225,126,35,254, 12€ 
16535:32,5,203,57,56,1,17S 
16542:197,229,205,8,8,225,193 
16549:16,236,201,8,65,73,99 
16556:107,119,7,3,3,3,2 
16563:3,132,118,5,126,0,0 
16570:0,126,133,118,5,0,0 
16577:0,0,8,133,118,5,128 
16584:0,126,0,128,133,118,5 
16591:0,0,8,0,0,133,118 


‘16598:5,126,0,0,0,128,133 


16605:118,130,131,131,131,131,131 
16612:129 


16514 FD ?E 34 LD A, C1Y+34) 
16517 01 06 38 LD BC, 380€ 
165208 91 SUB C 
16521 30 FD JR NC,4@86 
16523 21 AE 40 LD HL, 40RE 
16526 ES PUSH HL 
16527 85 ADD AL 
16528 6F LD LA 
16529 4E LD C, CHL) 
16530 E1 POP HL 
16531 7E LD A, CHL) 
16532 23 INC HL 
16533 FE 680 CP 8a 
16535 20 05 JR NZ, 40A3 
1653? CB 39 SRL C 
16539 38 01 JR C,40R3 
16541 AF *OR A 
16542 CS PUSH BC 
16543 ES PUSH HL 
16544 CD 08 08 CALL 0808 
16547 Ei POP HL 
16548 C1 POP BC 
16549 10 EC DJNZ 4893 
16551 C9 RET 

1 REM (73 octets) 


16514:253,126,52,1,6,30,145 


16528:111,78,225,126,35,254,1 





16549:16,2 
16556:235 


16517 @1 06 1E LD 


BC,1E06 


16533 FE Qi CP 1 
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INITIATION 





Le concours du plus beau 
carrelage 





A vos ZX 81 | Spectrum et autres QL s'abstenir : 
N.BAILLY nous a fait parvenir ce carrelage so- 
bre et régulier que l'on obtient en quelques ins- 
tructions. À vous de jouer, cette fois-ci sans limi- 
tation de mémoire, pour composer un carrelage 
de cathédrale ou de palais oriental avec le jeu de 
caractères graphiques du ZX 81 noirs où gris. 
Nous attendons des splendeurs.…. 


22 70,70 
f 








3 

1/64) 
Isa 
(1/138) x1 
(1/88) +85) 


2 
Namg _ PUNE 


64 
ad 
8> 
“44 THEN  P.S. Bravo à Christian MUGNERET. 


Pour son optimisation à 216 octets du pro- 
gramme n° 12, 


56467568 
ZU<HAHE TR 





X.L.B. 








La chance et l'informatique 


Depuis toujours, joueurs et parieurs ont tenté de « forcer la chance » par 
des moyens mathématiques souvent basés sur des calculs de 
probabilités. 

Le développement de l'informatique individuelle met à la disposition du 
joueur une puissance de calcul considérable, pour essayer de gagner 
plus souvent à des jeux aussi variés que le tiercé, le loto, la roulette, ou 
les concours publicitaires. 

L'ordinateur n’est toutefois pas un devin, et il importe de rester conscient 
de ce qu'il peut ou ne peut pas faire dans de tels domaines ! 


La leçon des boules 





Plaçons dans une boîte une boule blanche et 
une boule noire, agitons le tout, et tirons une 
boule les yeux fermés : sauf truquage grossier, il 
est parfaitement clair que la boule noire a une 
chance sur deux de sortir. 

Admettons que la blanche sorte. Au coup sui- 
vant, quelle est la probabilité de sortie de la 
boule noire ? 

Il est tentant de songer à une probabilité meil- 
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leure qu'une chance sur deux , notamment si 
plusieurs coups antérieurs ont fait sortir la boule 
blanche... ERREUR ! 
Le déroulement des coups précédents, quel 
qu'il soit, ne change rien à la réalité des faits : il y 
a dans la boîte une boule blanche et une boule 
noire, et donc une probabilité de 50 % de sortie 
pour chaque boule. 
Des joueurs de roulette se sont ainsi ruinés en 
admettant l'existence de probabilités différentes 
pour certaines cases. La réussite d'une telle 
« martingale » supposerait une défectuosité mé- 
canique (usure localisée) ou une irrégularité du 
jeu. Des contrôles très stricts réduisent pratique- 
ment à néant de telles possibilités. 
Le raisonnement est sensiblement le même en 
ce qui concerne le loto, la loterie nationale, et 
autres arlequins. 
Une analyse sur ordinateur des numéros sortis 
sür une Ce période serait mathématique- 
ment vouée à l'échec. Nous verrons cependant 
que l'on peut songer à autre chose. 
En ce qui concerne les paris (tiercé et autres 
courses), le problème est tout différent : les di- 
vers concurrents n'ont nullement des probabili- 
tés identiques de gagner. 
Le pronostiqueur habile pèse soigneusement le 
plus grand nombre possible de critières pour 
chaque partant, ce qui lui permet de recomman- 
der ceux qui lui paraissent les plus favorisés. 
Pour établir des pronostics valables, il faut bien 
sûr disposer de beaucoup d'informations, et les 
traiter Selon une procédure performante. 
Cela, un ordinateur peut s'en charger, et beau- 
coup plus vite qu'un être humain ! 

es parieurs, ont depuis longemps mis ce filon 
en exploitation : on trouve — quand on a de la 
chance ! — des cassettes destinées à la plupart 
des ordinateurs personnels connus, et permet- 
tent d'établir des pronostics assez sûrs en ma- 
tière de courses et de rencontres de football. 
Ces logiciels comportent deux volets : 
— Une volumineuse base de données regroupant 
le plus d'informations possibles sur les concur- 
rents les plus populaires, et sur les résultats des 
compétitions des dernières années. 
— un programme permettant d'une part la mise 
à jour permanente de cette masse d'informa- 
tions au moyen des résultats des compétitions 
au fur et à mesure qu'elles ont lieu et d'autre 
part L'EXPLOITATION de ces données selon les 
caractéristiques de la rencontre sur laquelle on 
désire établir un pronostic. 
Des résultats plus qu'encourageants auraient 
été obtenus par des utilisateurs adroits de ces 
logiciels, qui se vendent d’ailleurs assez cher. 
(ORDI-5 ne les vend pas). 





Les pouvoirs 
surnaturels 





On croit ou on n'y croit pas, les PARAPSYCHO- 
LOGUES font couler beaucoup d'encre et de sa- 
live ! Si certaines personnes voient en rêve un 
accident qui arrive le lendemain à un de leurs 
proches, si d'autres arrivent à faire tourner les 
tables, pourquoi diable ne pourraient-elles pas 
deviner la prochaine combinaison du loto! 


En ce qui nous concerne, nous croyons ce que 
nous voyons ! Nous avons donc écrit un petit 
programme destiné à tester les talents de toute 
personne soupçonnée de posséder des facultés 
extra-sensorielles. 





FRET à 














LET 
HEH  LET 













THEN. GO TO 
"UCTHEN  LET 


198 THEH GO TO 194 


FEIHT TAB 





ELH 


Le logiciel de la figure 1 a été écrit sur un SPEC- 
TRUM, mais i| pourrait facilement être adapté 
pour fonctionner sur d'autres machines. 
L'important est de bien en respecter le principe, 
qui consiste à faire exécuter à l'ordinateur une 
boucle de programme comportant deux instruc- 
tions parfaitement symétriques dont i'une incré- 
mente une variable A et l'autre une variable B 
sur simple pression d'une touche quelconque du 
clavier. Moyennant un nombre suffisent d'essais 
(mettons 100), il est statistiquement quasiment 
certain que À et B se partageront à égalité le 
total obtenu. 

Pour s'en convaincre, il suffit d'appuyer de fa- 
gon continue sur une touche du clavier, jusqu'à 
qu'un top sonore indique la fin du test, et l'édi- 
tion des résultats. 

Il est maintenant possible d'appuyer sur le cla- 
vier par pressions courtes mais VOLONTAIRES, 
et si l'on s'en sent capable, sous l'empire d'une 
INTENSE CONCENTRATION PSYCHIQUE. 

On peut même, puisque toutes les touches du 
clavier jouent ici le même rôle, aller jusqu'à frap- 
per des mots revêtant une signification « ri- 
tuelle » pour le sujet (au point où nous en som- 
mes, n'est-ce pas...) 

Les choses deviennent intéressantes si des ré- 
sultats différant notablement de la proportion 
normale 50/50 peuvent être régulièrement obte- 
nus : le sujet pourra alors être qualifié de « mé- 
dium », car il se sera montré capable : 
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— soit d'agir mentalement sur le fonctionnement 
de l'ordinateur. 

— soit de « lire dans les pensées » de la machine, 
et d'agir sur le clavier « au bon moment ». 

Un tel « médium » pourra alors tenter de se met- 
tre « en relation » avec la machine tirant le loto, 
où avec une table de roulette ! 

Ceux de nos lecteurs qui commenceraient à se 
poser des questions sur l'état de santé de l'au- 
teur de ces lignes doivent savoir que des scienti- 
fiques tout-à-fait sérieux utilisent en laboratoire 
des procédés à peu près identiques pour tenter 
de fixer la limite existant nécessairement entre la 
réalité et la fiction dans ces domaines encore 
bien obscurs. 









THEN GO TO 7 


i 
ai Fine nc FA 


Des outils pour médiums dur 
Spectrum 





Le programme de la figure 2 permet à Un SPEC- Si par contre les tests précédents ont donné des 
TRÜM de générer des nombres entiers compris résultats positifs, pourquoi donc ne pourriez- 
entre 1 et un maximum donné. Une intervention Vous pas faire « avouer » à la machine quels se- 
manuelle de l'opérateur stoppe la machine dans  ront les prochains nombres qui sortiront au 
son exploration continuelle du générateur de loto ? On n’est pas médium pour rien, que dia- 
nombres aléatoires de sa ROM. ble ! 

Si vous n'êtes pas médium, le procédé présente Le petit logiciel de la figure 3 est capable, à par- 
l'avantage de permettre un meilleur « brassage » tir d'un mot quelconque entré au clavier, d’en 
que la lecture directe de la liste pré- établir toute une série d'ANAGRAMMES (mots 


programmée. utilisant les mêmes lettres dans un ordre diffé- 
rent). 
! ina ss 
UE 1// La recherche s'opère de façon aléatoire, car une 
J 4t GAGÇNE AU LoTo Sa exploration systématique deviendrait vite impra- 


ticable sur des mots de longueur moyenne. 


1Ù AURAS Tous LES Loëic iELS Rappelons en effet que pour N lettres, le nombre 


d'anagrammes distincts est N! (factorielle N) 


NU QUE TU VouprAsS ! soit 1 x 2x3 X...x N. 


Avec seulement six lettres, on arrive à 720 pos- 


f V y sibiltés, avec sept à 5040, avec huit à 40820, 
29 etc! 












LE 

ÉRIHT es 

LHELUT FALSE 16 
FRIHT Une Louchenn 
RINT 

CET. LRMC #mi +21 

De Lo € : THEN GO TO S@ 
PRIN sd 

LP JR " THEN GO TO &ë 
&o To 

RE 





‘Bien des concours publicitaires sont basés sur la 
recherche d'une anagramme de la marque du 
produit, Si vous n'êtes pas médium, ce pro- 
gramme pourra vous aider à balayer un certain 
nombre de possibilités. Si par contre vous jouis- 
sez de facultés supra-normales, vous ne man- 
querez certes pas de trouver très vite Une excel- 
lente solution, n'est-ce pas ? 








Patrick GUEULLE 
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Ah ! les belles courbes 


L'informatique individuelle se prête à merveille à la construction rapide et 
précise de toutes sortes de graphiques, de l’histogramme au 

« camembert » en passant par le classique graphe cartésien. 

Un ordinateur possédant la haute résolution, éventuellement complété 
par une imprimante graphique, peut faire gagner énormément de temps à 
tout utilisateur de tels diagrammes « x-y ». 

Des logiciels plus ou moins sophistiqués peuvent être utilisés à cet effet : 
nous vous en proposons ici un fort simple mais assez souple d'emploi, 
destiné à « tourner » sur un SPECTRUM éventuellement muni d’une 


imprimante. 





I! n'y a plus qu'à tirer l'échelle ! 





L'instruction PLOT du SPECTRUM suffirait pres- 
que, à elle seule, pour tracer des courbes point 
par point. Elle « noircit » en effet n'importe quel 
point de l'écran (pixel) dont on spécifie les coor- 
données rectangulaires : PLOT X,Y. 

X peut varier de 0 à 255, et Y de 0 à 175. 
Cependant, pour être exploitable, une courbe 
doit être étalonnée : à la main, on utilise du pa- 
pier quadrillé sur lequel on fait figurer les échel- 
les et les unités retenues. L'ordinateur, dessina- 
teur infatigable, peut exécuter un quadrillage en 
un tournemain, plus ou moins serré selon les va- 
leurs imposées aux boucles FOR-NEXT 
commandant le traçage opéré par les instruc- 
tions DRAW. 


L'indication des échelles adoptées est simple à 
porter sur le diagramme, puisque le SPECTRUM 
permet le mélange direct de textes et de gra- 
phismes sur un même écran. Avec d'autres ma- 
chines la chose serait possible, mais beaucoup 
plus délicate. 


Les lignes 10 à 25 du programme de la figure 1 
servent donc à l'acquisition par l'ordinateur du 
détail des unités et des échelles à utiliser. Les 
lignes 65 et 75 assurent l'impression de ces don- 
nées essentielles en bordure de quadrillage. 
Celui-ci possède dix divisions sur chaque axe, 
ce qui permet une lecture facile quelle que soit la 
pleine échelle choisie. Un X est placé en bout 
d'axe des abscisses, un Ÿ en haut de celui des 
ordonnées, et une procédure fort simple trans- 
forme ce X ou ce Y en point d'interrogation lors- 
que la machine attend une valeur : l'opérateur 
ne risque pas, de cette façon, de perdre le fil de 
son travail de saisie, alors qu'aucune place ne se 
trouve gaspillée sur l'écran pour l'impression de 
messages « de service ». 

Chaque point spécifié par ses coordonnées X 
et YŸ est inscrit sur le graphe, en noir sur blanc 
sur noir s'il vient à tomber sur une ligne du qua- 
drillage : c'est l'attribut OVER 1 de la ligne 140 
qui permet cette distinction automatique, qui 
fait si cruellement défaut à d'autres machines. 







‘unite x 
Leine echel 


mite 





7 TN 


To 178 
CRAN 260, 





To 9 2TEer 
CRAN @,170 


Max æ Rx 





SE, 


THEN PRINT AT 1,3 
&ÿ TE 188 


UT AT 
169 FRINT AT 
198 IF x 


INPUT 





24 


LET Lx 
9 PRINT AT æe1, 


Los 













FRINT AT à: INPUT 4 
PRINT AT 
LET #2 LET Y=4#1 70] 





Les points portés sur le graphique ne sont pas 
réunis entre eux par la machine : l'instruction 
DRAVW, facile à ajouter d'ailleurs, ne pourrait en 


effet accomplir qu'une « interpolation linéaire » 
entre deux points, ce qui ne correspond pas for- 
cément aux besoins de l'utilisateur : on obtient 
une bien plus belle courbe en réunissant les 
points « à la main », ce qui est d'ailleurs un plai- 
sir après que la machine se soit chargée du tra- 
vail si fastidieux de placement des points ! 

La figure 2 fournit un exemple de graphiques 
établi par le SPECTRUM, tandis que la figure 3 
montre le travail restant à exécuter manuelle- 
ment. 


on trouve dans les bonnes papeteries des règles 
souples, armées de plomb, qui peuvent être 
conformées à la disposition des points qui rem- 
placent avantageusement les anciens « pisto- 
lets » : il ne reste alors plus qu'à tracer ! 
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GRAPHIQUES 













































































Copie « à la trace » 





L'écran TV ne peut généralement être considéré 
que comme un support intermédiaire pour les 
courbes tracées, qu'il faudra tôt ou tard transté- 
rer sur papier. 

Les machines SINCLAIR (ZX 81 et SPECTRUM) 


possèdent une très commode instruction COPY 
déclenchant la recopie exacte du contenu de 
l'écran sur l'imprimante SINCLAIR ou ALPHA- 
COM. Dans notre programme, le simple fait de 
presser la touche ENTER seule lorsque la ma- 
chine attend une valeur X appelle la ligne 105 
qui contient un COPY. C'est pour cela que X est 
entré sous forme de chaine alors que Y rentre 
plus simplement sous forme numérique. 

Pour des applications « sérieuses », on éprou- 
vera cependant sans doute le besoin d'une co- 
pie de qualité sur papier ordinaire. Aussi ce pro- 
gramme est-il adoptable à une interface 
imprimante : ici l'interface KEMPSTON. 

La commutation de l'interface pour telle ou telle 
imprimante se fait au moyen de commandes 
frappées au clavier, ou même de lignes de pro- 
gramme (lignes 5 à 7 de notre logiciel). 

Pour les utilisateurs qui trouveraient insuffisant le 
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format des copies d'écran obtenues, il suffit de 
remplacer le zéro terminant la ligne 7 par un 1 
pour obtenir pratiquement le plein format A4 
(21 x 29,7): figure 4. 

Bien entendu, ces lignes « spécifiques KEMPS- 
TON » seront supprimées par nos lecteurs utili- 
sant une autre interface. 


Ce logiciel est suffisamment court pour pouvoir 
être saisi au clavier en peu de minutes, mais il 
peut faire gagner un temps considérable à tout 
utilisateur régulier de graphiques X-Y ou T-Y 
possédant une imprimante réellement capable 
de reproduire des écrans haute résolution de 
SPECTRUM. 


Patrick GUEULLE 
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CAHIER QL 








Trois jeux QL 





Q. Briques 





Q. Briques est une version du jeu 
Casse Briques pour le QL. Il s’agit 
de détruire un mur à l’aide d’une 
balle. Utilisez les touches du 
curseur pour bouger la raquette. Ce 
programme pourrait être 
considérablement optimisé, mais il 
recourt à des procédures simples à 
des fins pédagogiques. 


Il utilise cinq variables : x : ordonnée de la balle, 
y : abcisse de la balle, py : abcisse de la ra- 
quette, a et b : mouvements de la balle. Au dé- 
but dujeua=b=1:doncx=x+1ety=y 
+ 1: si la balle touche le mur ou une brique 
= = a où b = —b, les valeurs de a et b peuvent 
donc être — 1 ou 1 ? Mais il y a un « hic » avec ce 
système : la balle détruira sur le mur une brique 
sur deux. 
Comment savoir si la balle touche une brique ou 
non ? Eh bien chaque brique est codée : br {li 
gne, colonne), cette variable prend la valeur O si 
il y a une brique ou 1 s'il n'y en a pas. 


10 REMark Q.BRIQUES V.1-3 
(c) Mars 1985 Frederic Huynh 
100 presentation 
110 var 
120 ecran 
140 nouveau 
150 ecran 
160 jeu 
170 GO TO 120 
180 GO TO 100 
1000 DEFine PROCedure ecran 
1010 PAPER O:CLS:CLS #0 
1020 PAFER 1:PRINT " 
1030 FOR i-1 TO 20-(niveau-1) 
1040 FOR i-2 TO 6 
1050 
1060 END FOR i 
1070 DIM br(7,33) 
1080 x-7:y-2 
1090 py-15 
1100 AT #0,1,0:FRINT #i 
1,26: PRINT #0:"SCORE : 
1110 PAPER 0 
1120 RETUrn 
1130 DEFine PROCedure jeu 
1140 AT X,Y:PRINT " ":hors 
1150 AT 20-niveau,pv-1:FPAPER 4:PRINT " 











"BALLES : 





1160 AT X,Y:PRINT "O" 
1170 IF xX:6 THEN balle 
1180 IF KEYROW(1(:0 THEN mov 


1190 IF x-(19-niveau) THEN Check 
1200 GO TO 1140 
1210 DEFine PROCedure mov 
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AT {,O:PRINT * 


“;ba:aT #0,1,12:PRINT #0; "POINTS : 


Il arrive (rarement) que la balle « tourne en 
rond » c'est-à-dire qu'elle ne marque pas de 
points : le jeu devient donc monotone et il est 
impossible de gagner. Pour remédier à ce pro- 
blème il suffit de presser la touche < ESC > qui 
fait automatiquement changer la balle, mais utili- 
sez cette touche que lorsque c'est nécessaire, 
en effet elle fait perdre cinq points à chaque 
pression. 

Il y a plusieurs niveaux de difficulté, pour gagner 
il faut atteindre le niveau 7. Chaque fois que 
vous montez d'un niveau la raquette en fait de 
même, il faut donc être de plus en plus rapide. 

— Procédure écran : affiche le mur 

— Procédure jeu : boucle principale 

— Procédure mov : bouge la raquette 

— Procédure balle : vérifie si la balle touche une 
brique 

— Procédure nouveau : indique le niveau de jeu 
— Procédure var : définition des variables 

— Procédure check : vérifie si la balle est passée 
à côté de la raquette 

— Procédure hors : fait avancer la balle et vérifie 
sa position 

— Procédure nbal : change la balle 

Procédure bravo : fin de la partie 

— Procédure fin : annonce la défaite 

Procédure présentation : présentation 

— Procédure encore : demande si le joueur veut 
rejouer 

— Procédure gagne : fin du jeu 

A UE ord(a$) : affichage d'un message 
a 








MSAT À,B6:PRENT * * 


AT i-1,1:PAPER INTCRND(2 TO 6)): PRINT * 


";sC:AT #0, 


": PAPER 0 


1220 AT 20-niveau,py-1:PRINT *  " 
1230 IF KEYROW(1)-2 AND pyii THEN py- 
1240 IF KEYROW(1)-8 THEN Sc=sc-5:AT X,V:PRINT " “:nbal 
1250 IF KEYROW(1)-16 AND py-34 THEN py-py+2 

1260 RETurn 

1270 DEFine PROCedure balle 

1280 IF brix,y)-1 THEN 

1290 RETurn 

1300 ELSE 

1310 BEEP 500,x 

1320 AT X,V:PRINT * * 

1330 brix,v)-1 

1340 sc-sc+1 

1350 IF x<1 THEN a--a 

1360 AT #0,1,21:PRINT #0;sc;" " 

1370 END IF 

1380 IF (Se MOD 20)-0 THEN nbal 

1390 1F sc-req THEN bravo:GO TO 170 

1400 END DEFine 

1410 DEFine PROCedure nouveau 

1420 INK 5 

1430 niveau-niveau-+1:sc-0 

1440 CSIZE 3,1 

1450 AT 5,9:PRINT “NIVEAU : “:niveau 

1460 PAUSE 100 

1470 CSIZE 2,0 

1480 req-120-(niveaux16) 


-2 




















1490 AT 13,4:INK 3:PRINT "Nombre de points requis pour ":AT 14,7:PRINT “ passage 
en niveau : ";niveau+1:AT 15,17:FLASH 1:INK 4:PRINT req:FLASH 0 
1500 INK 6 





1510 AT 19,3:PRINT “Pressez «" 
encer" 

1520 IF KEYROW(1) 1 THEN GO TO 1520 

1530 INK 7 

1540 RETurn 

1550 END DEFine 

1560 DEFine PROCedure var 

1570 sc-0:score-0:a-1:b-1:ba-9:change-0:niveau-Q 

1580 RETurn 

1590 DEFine PROCedure check 

1600 IF V>py+1 OR Y<py-1 THEN GO TO 1620 

1610 a--a:BEEP 100,0:RETurn 

1620 ba-ba-1:AT X,V:PRINT “ “:FOR i-0 TO 30:BEEP 5000,i:BEEP 5000,ix2:BEEP 5000, 
i/2:NEXT i 

1630 AT 0,0:CSIZE 3,1:AT 5,7:PRINT "BALLE PERDUE !!":CSIZE 2,0:FOR i-0 TO 300:NE 
XT i 

1640 IF ba-0 THEN fin:encore:GO TO 180 

1650 AT 0,0:nbal 

1660 AT #0,1,9:PRINT #0;ba;" " 

1670 END DEFine 

1680 DEFine PROCedure hors 


FLASH 1:PRINT "ENTER"; : FLASH O:PRINT": pour comm 



































=1 THEN a 
1710 IF y<=1 THEN y 
1720 1F V>-35 THEN v-35:b--b:BEEP 100,0 
1730 RETurn 

1740 END DEFine 

1750 DEFine PROCedure nbal 

1760 1F change-1 THEN 

1770 change-0:v-3 

1780 ELSE 

1790 change-1:y-2 

1800 END IF 

1810 1F RND:.7 THEN V=RND(4 TO 7) 

1820 CSIZE 3,1 

1830 INK 5 

1840 AT 5,5:PRINT “CHANGEMENT DE BALLE" 
1850 CSIZE 2,0 

1860 FOR TO 100:NEXT i 

1870 AT 20-niveau,0:INK 6 














| 880 PRINT “ Pressez .";:FLASH 1:PRINT "ENTER"; :FLASH O:PRINT “: pour continue 
i ce “:INK 6 

890 IF KEYROW(1)<:1 THEN GO TO 1890 
| 900 x=7: :b=1 

1910 AT 20-niveau,3:PRINT " ti 

920 AT 10,6:PRINT * "SAT 11,S:PRINT * 


930 py-15 

940 INK 7 

950 RETurn 

960 DEFine PROCedure bravo 
1970 CLS #0 
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CAHIER QL 


1980 AT 0,0 
1990 CSIZE 3,1:FOR i-0 TO 60:AT 4,11:INK i:PRINT "BRAVO !":NEXT i:CSIZE 2,0 

2000 AT 10,3:INK 6:PRINT "Vous avez atteint les ";req;" points":AT 11,5:PRINT ‘n 
ecessaires pour le passage ":AT 12,13:PRINT “en niveau “;niveau+1 

2010 AT 20-niveau,3:INK 4:PRINT "Pressez {" 
2010 AT 20-niveau,3:1NK 4.PRINT “Pressez (";:FLASH 1:PRINT "ENTER 














FLASH O:PRI 





NT “» pour continuer" 
2020 IF KEYROW(1)‘:1 THEN GO TO 2020 
2030 CLS 


2040 CSIZE 3,1 

2050 AT 0,5:INK 4:PRINT "TOTAL DES POINTS" 
2060 INK 5 
2070 AT 2,3: 
2080 AT 3,3 





PRINT "POINTS 

PRINT "BALLES 
2090 :PRINT "SCORE 
2100 PRINT “NIVEAU 
2110 AT 7,3:PRINT 
2120 score-sc+(ba*x10)+(niveaux10)-score 
2 AT 8,3:PRINT “TOTAL : ";score 
2140 CSIZE 2,0 

2150 INK 2:AT 19,3:PRINT “Pressez ‘":;: 
ur continuer." 

2160 IF KEYROW(1)<:1 THEN GO TO 2160 
2170 CLS 

2180 ba-ba+1 

2190 IF niveau+1-7 THEN gagne 

2200 RETurn 

2210 DEFine PROCedure fin 

2220 ecran 

2230 CSIZE 3,1 

2240 INK Z:AT 5,7:PRINT "VOUS AVEZ PERDU" 

2250 INK 4:CSIZE 2,0 

2260 score-score+sc 

2270 AT 12,7:PRINT “Votre score est de : ";score:AT 13,12:PRINT “en niveau : “;n 
iveau 

2280 FOR i-0 TO SQU:NEXT i 

2290 AT 19,3:INK 7:PRINT “Pressez <":: 
ur continuer * 

2300 IF KEYROW(1)::1 THEN GO TO 2200 
2310 AT 19,0:PRINT " r 

2320 FOR 1-0 TO 30O:NEXT i:PAUSE 5:PAUSE 5 

2330 RETUrn 

2340 DEFine PROCedure presentation 

2350 MODE 8:PAPER O:CLS:CLS #0 

2360 OPEN #4,scr_442xX200a38x16 

2370 BORDER #4,3,6 

2380 INK #4,2:AT #4,1,11:PRINT #4; "FREDERIC HUYNH" 

2390 INK #4,1:AT #4,4,14:PRINT #4: "PRESENTE" 

2400 CSIZE #4,3,1 

2410 FOR i-0 TO 100:INK #4,i:AT #4,4,9:PRINT #4:"Q.BRIQUES":NEXT i:AT #4,4,9: INK 
#4,3:PRINT #4:;"Q.BRIQUE: 

2420 CSIZE #4.2.0:INK #4,5 

2430 AT #4,11.6:PRINT #4:"(c) 1985 HUYNH SOFTWARE": INK #4,100 

2440 AT #4,18.3:PRINT #4;"Pressez «ENTER> pour commencer" 

2450 1F KEYROW(1)::1 THEN GO TO 2450 

2460 FOR 1-1 TO 60 

2470 BORDER #4,1,1:BEEP 500,601 

2480 NEXT i 

2490 BORDER #4,65,1 

2500 FOR i-0 TO 50O0:NEXT i 

2510 CLOSE #4 

2520 CLS 

2530 PAUSE 300 

2540 RETUrN 

2550 END DEFine 

2560 DEFine PROCedure encore 

2570 CLS #0 

2580 AT #0,3,0 

2590 INPUT #0;"Desirez vous rejouer ? ? ";a$ 

2600 THEN GO TO 2590 

2610 oui" OR a&-"o" THEN RETurn 

2620 CLS 

2630 CLS #0 

2640 PRINT #0;“(c> Frederic Huynh" 

2650 STOP 

2660 END DEFine 

2670 DEFine PROCedure gagne 

2680 CLS:CLS #0 

2690 ord “Bravo , vous avez atteint le niveau 7 : toutes mes felicitations si v 
ous n'avez pas triche 
2700 PRINT\\ 

2710 ord "Merci d'avoir joue avec moi 


sc 
ba;" x 10" 
score 

niveau;" x 10" 














FLASH 1:PRINT 





FLASH O:PRINT “> po 












FLASH 1:PRINT "ENTER 





FLASH O:PRINT “> po 
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2720 











encore:GO0 TO 180 
2730 END DEFine 

2740 DEFine PROCedure ord(a$) 

2750 FOR i-1 TO LEN(a$) 

2760 PRINT a$(i);:BEEP 100,0:PAUSE 5 
2770 END FOR i 

2780 PRINT " " 

2790 RETurn 

2800 END DEFine 


10600 REMArk à 2 ec 6 6 2€ 2 6 D D D AC D CORAN 


10610 DELETE mdv1_Q_ Briques 
10620 SAVE mdv1_Q Briques 
10630 DIR mdv1_ 

10640 STOP 

10650 PAUSE 10000 

10660 BAUD 1200 

10670 OPEN #4,ser1c 

10680 LIST #4 

10690 CLOSE #4 

10700 STOP 


10710 REMATk xx 2 2 6 x 6 6 2 € 6€ ED DC D 2 DE DGA D A 








Pendu 





Le principe du programme PENDU 
est simple : trouver un mot choisi 
par l'ordinateur en faisant au plus 
dix fautes. Il faut pour cela entrer 
une par une des lettres, si elles sont 
dans la composition du mot, elles 
viendront s'afficher à un endroit 
précis. Si elles sont fausses une 
potence se construira peu à peu. 
Voici une brève descriptions du 
programme : 


10 REMark Pendu V.ü-1 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
ON", "VAPEUR", "SEMAINE" 
T","DINDON", "EXPLICATION", "ANNEXE 
1080 DATA "JOURNAL", "CHLOROFORME" , 
E", "ESPACE", "PRATIQUE" , "SIEGE", "RADIO" 
1090 DATA “PHAGOCYTOSE 


var 
PAPER #1,0:PAPER #2,0 
MODE 8 
presentation 
CLS:PAUSE 100 
prenom 
PAPER O:CLS 
caractere 
mot 
affichage 
REPeat jeu 
entree 
check 
END REPeat jeu 
STOP 
DEFine PROCedure mot 
RANDOMISE 
RESTORE 
FOR i-1 TO RND(1 TO 100) 
READ m$ 
END FOR i 
RETUrn 











RTIMONIE" , *ANAPHORE" , "PROSOPOPEE" , "CHI ASME 


1100 DATA “EPARGNE", "COMPREHENS1 ON" 
N", "PIN", "REIN", "OEUVRE" , "TELEPHON 








DATA “INUTILE",*DORMIR", "LONGTEMPS", 
MALVEILLANCE" , "SEL", "BIEN", “MAL 
"EFFORT" 

GRENOL 








AUDITION", 
: "COAGULATION" , "TRANSLATION", “EQUATION" 


F. HUYNH 


Lignes 100 à 240 : boucle principale 

— Procédure mot : choix d'un mot au hasard 

— Procédure présentation : règle du jeu 

— Procédure caractère : affichage de la potence 
— Procédure pendu (x) : construction du corps 
— Procédure affchage : affichage du mot caché 
— Procédure entrée : entrée des lettres 

— Procédure var : mise en place des variables 

— Procédure check : vérifie la lettre ou le mot 

— Procédure potence : affichage du corps 

— Procédure efface : prépare l'écran 

— Procédure gagne : annonce la victoire 

— Procédure mort : annonce la défaite 

— Procédure encore : demande si le joueur veut 
rejouer 

— Procédure prénom : 
joueur 


Il est évidemment possible de changer les mots 
tirés en modifiant les DATA 1070-1120. 


demande le nom du 





COMMUNICATION" , * IMPORTANCE", "APPELLATI 


"SUCRE", "POIVRE", "POULE 








ILLE" , “CHLORE” , ACIDE", “EPICEA", "LUMIER 
BALL . "WALKMAN" : 

“LANGAGE” , "EUPHEMISME" , “PA 
ANTONOMASE" , "METONYMIE" 
"PHOTOGRAPHIE" , "MAGNETOSCOPE" , "VI 
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CAHIER QL 





| 


a 








1110°DATA "LITOTE", "HORLOGE", "MICROPROCESSEUR" , "LAVAGE", *PARAPLUIE" , "CHIEN" , "CHA 
“ANTECEDENT" , "EXODE" , "URBANISME", "OMNI VORE", "CLASSEUR" , "ECOLOGIE" , “INFLATION" 

; "DEVALUATION" , "CONJONCTURE" , "ACTUEL" , "ESPION", "UNION" , "REPUBLIQUE" 

1120 DATA "EPILOSCOPE", "DIAPOSITIVE", "ECHEANCE" , "HEBDOMADAIRE", "OPPRESSION 

DITISME" , "AFFECTATION", "LIMOGER" , "LICENCIER" , "EPILOGUE" , “ORDINATEUR”, “GENI AI 

NTERFACE OYSTICK", "MANETTE", "EXPANSION", "DEMOGRAPHIE" , "PSYCOLOGIE NTELLECT 

UEL", "LAMENTABLE" , “PRECISION", "FIN* 

1130 END DEFine mot 

1140 DEFine PROCedure presentation 

1150 OPEN #4,scr_442x200a38x16 

1160 BORDER #4,2,1,3 

1170 CLS #4 

1180 INK #4,2:AT #4,0,11:PRINT #4;"FREDERIC HUYNH" 

1190 INK #4,1:AT #4,3,14: PRINT #4; "PRESENTE" 

1200 INK #4,3:CSIZE #4,3,1:AT #4,3,11:PRINT #4; "PENDI 

1210 AT #4,10,0:PRINT #4;" Tout le monde connait bien evidem ment la regle de € 

e jeu . Decouvrez le mot cache en entrant une par une des lettres , si elles son 

t bonnes ,elles viendrant s'afficher a l'ecranmais attention si elles sont fauss 

esLa mort vous guette ....." 

1220 INK #4,6:FLASH #4,1:AT #4,18,11:PRINT #4; "PRESSEZ ‘ ENTER": FLASH #4,0 

1230 IF KEYROW(1)-1 THEN RETurn 

1240 GO TO 1230 

1250 END DEFine presentation 

1260 DEFine PROCedure caractere 

1270 CLS 

1280 c$-CHR$(231) 

1290 INK 4:PAPER 4:AT 19,20:PRINT FILL$(C#,10) 

1300 FOR i-1 TO IB:AT i,25:PRINT c$ 

1310 AT 1,25:PRINT FILL$(C$, 10) 

1320 AT 18,22:PRINT FILL$(C$,6) 

1330 AT 1,3:PAPER 1:PRINT " 3 

“:INK 3:PAPER O:AT 2,4:PRINT "PENDU" 

1340 AT 6,1:PRINT "Mot a rechercher :":AT 11,1:PRINT "Lettres utilisees :" 

1350 END DEFine caractere 

1360 FOR i-0 TO 300 

1370 DEFine PROCedure pendu (x) 

1380 INK X:PAPER x 

1390 SELect ON x 

1400 -1:AT 2,30:PRINT C$:AT 3,30:PRINT c$:message$-"Voici deja la corde . 

1410 =2:AT 4,29:PRINT C$&cR&c$:AT 5,29:PRINT cSac&C$:AT 6,29:PRINT c&c$&c$:mes 

J'ai l'impression que vous avez une drole de tete ..." 

AT 7,30:PRINT c$:message$-"Corde+cou-aie aie aie t!1" 

1430 =4:FOR i=8 TO 11:AT i,29:PRINT ch&c$é&c$:NEXT i:message$-"Un corps ca pese 1 

ourd 11" 

1440 -5:AT 8,28:PRINT C$:FOR i-8 TO 11:AT i,27:PRINT C$:NEXT i:messagef-"Vous en 

etes deja au bras ..." 

1450 -6:AT 8,32:PRINT C$:FOR i-8 TO 11:AT i,33:PRINT C$:NEXT i:message#-"Desirez 

vous vous confesser ? " 

1460 -7:FOR i-12 TO 15:AT i,2G:PRINT CS$:NEXT 

jambe 1" 

1470 -B:AT 16,28:PRINT c$&c$:message$-"Vous avez deja un pied dans la tombe .,." 

1480 -9:FOR i-12 TO 15:AT i,31:PRINT Cc$:NEXT i:message$-"Une derniere vonlontee 























SIZE #4,2,0:1INK #4.4 











TS, SPRINT * “:AT 2,3:PRINT * 





















message$-"Ca vous fait une belle 





1490 -10:AT 16,31:PRINT cé&c$:message$-"Bienvenue en enfer !!! 
1500 END SELect 

1510 PAPER O:INK 6 

1520 END DEFine pendu 

1530 DEFine PROCedure affichage 

1540 AT 8,1:INK 7 

1550 FOR i-1 TO LEN (m$) 

1560 PRINT "_"; 
1570 END FOR i 
1580 INK 4 
1590 END DEFine affichage 

1600 DEFine PROCedure entree 

1610 INK 5 

1620 1F PEEK (163976)-0 THEN POKE 163976,255 

1630 AT 15,1:INPUT “Votre lettre 1$ 

1640 IF 1$-"" THEN GO TO 1630 

1650 1$-1$(1) 

1660 IF CODE (1$)°65 OR CODE (1$)»90 THEN GO TO 1630 
1670 efface 

1680 prop-prop+1 

1690 d$(prop)=1$#:FOR i-1 TO prop-1:1F 1$-d$(i) THEN er 
1700 NEXT i 

1710 IF er-1 THEN er-0:prop-prop-1:G0 TO 1630 

1720 END DEFine entree 

1730 DEFine PROCedure var 

1740 prop-0:DIM bon(20) 
1750 END DEFine var 

1760 DEFine PROCedure check 
1770 FOR i-1 TO LEN (mS) 








EXIT i 








:x-0:lettre-0:DIM d$(27):er-0 
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1930 
1940 


1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 


2220 
2230 


2400 
2410 
2420 
2430 
2440 
2450 
2460 



























IF 1$-m$(i> THEN b-1:bon(i)-i 
END FOR i 

1F b-0 THEN potence:RETUrn 
INK 6 

FOR i-1 TO LEN (m$) 

IF bon(i)=i THEN AT 8,i:PRINT m$(i) 
END FOR i 

efface 

1F lettre-LEN (m$) THEN gagne 

INK 2 

AT 15,1:INPUT “Avez vou 
IF z$<:"O" AND z$<>"OUl" 
efface 

INK 1 

AT 15,1:PRINT “Votre solution":INPUT “ : “;solution$:AT 16,0:PRINT FILL$(" 


:lettre-lettre+1 





trouve “:2$ 
THEN b-G:efface:RETurn 





1F solution$-m$ THEN gagne 
AT 15,1:PRINT "C'est faux,vous etes ":AT 16,1:PRINT “mort 





AT 17,1:PRINT ‘ 


Bienvenu en enfer !" 


mort 
END DEFine check 

DEFine PROCedure potence 
X=X4LIAT 13,X:PRINT 1$ 
pendu x 

AT #0,1,0:PRINT #0;FILL#(" 
AT #0.1,0:PRINT #0;message$ 
IF X-10 THEN mort 

END DEFine 

DEFine PROCedure efface 

AT 15,0:PRINT 

END DEFine efface 

DEFine PROCedure gagne 

INK 6 

FOR i-6 TO 16:AT i,0:PRINT FILLS(" 
AT #0,1,0:PRINT #0;FILL$(" 70) 
AT 6,1:PRINT “BRAVO vous avez reussi":AT 7 
INK S:AT 8,1:PRINT m$ 














PRINT “a trouver le mot : * 











INK 6:AT 9,1:PRINT "en ";prop:" essai 

encore 

END DEFine gagne 

DEFine PROCedure mort 

FOR i-0 TO 1500:NEXT 

FOR i:6 TO 18:AT i,0:PRINT FILL#(* *,21) 

PAPER 1:FOR TO 17:AT Î,5:PRINT FILLS(" ",7) 





PAPER 2:FOR TO 13:AT i,8:PRINT * 
AT 8,6:PRINT " di 
PAPER 1:INK 3 


AT 17,8-(LEN(nom$)/2):PRINT nom$:AT 15, 





PRINT “ICI: AT 16,7:PRINT "GIT":IN 


K 6:PAPER 0 


FOR i-0 TO 1O00:NEXT i 








AT #O0,1.0:PRINT #0; FILLS(" ",70) 

FOR i-=5 TO 18:AT i,0:PRINT FILL$(" *,21) 

AT 6,1:PRINT "Vous n'avez pas reussi":PRINT " a trouver le mot 
INK S:PRINT " ":m$:INK 6 

PRINT “ Vous etes mort apres :":PRINT “ ";prop;" essais." 
encore 


END DEFine mort 
DEFine PROCedure encore 
AT 18,1:PRINT “besirez vous rejouer ?" 





INPUT “;a$ 

IF a$-"O" OR a$-"OUl* THEN RUN 

CLS:CLOSE #4 

CLS #0 

PRINT "La prochaine fois (si vous etes enco re vivant) essavez la roulette 
POSER ee pour changer tt!" 


SroP 
END DEFine encore 

DEFine PROCedure prenom 

AT #0,1,0:INPUT #0;"Quel est votre nom svp (max 7) 
IF LEN(nom$)7 THEN GO TO 2430 

AT #0,1,0:PRINT #0;FILL$(" ",70) 

END DEFine prenom 


":nom$ 


10000 REMark xx#xxexxrmxexex Rem RRRRRRRR RER ERREUR RNA RME CARE 
10010 CLS :CLS #0 

10020 DELETE MDV1_Pendu 

10030 SAVE MDV1_Pendu 

10040 DIR mdv1_ 

10050 STOP 

10060 BAUD 1200 

10070 OPEN #5,ser1c 
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PAUSE 10000 
LIST #5 
CLOSE #5 
STOP 


REMAKE DC D CDD DD CDN DE 


F. KIM 











Il s'agit de retrouver une suite de 
Simon couleurs que l'ordinateur a 
préalablement affichée . 


CAHIER QL 





10 REMark SIMON V.0-1 
(c) Mars 1985 Frederic Huynh . Paris 
100 PAPER #1,0:PAPER #2,0:CLS #1:CLS #2:CLS #0 
110 var 
120 initialisation 
130 page 
140 jeu 
150 fin 
160 CLS #0 
170 score-0:comp-0:er-0:DIM So(100):DIM h(100):b-0:initialisation:GO TO 130 
1000 DEFine PROCedure initialisation 
1010 OPEN #4,scr_442x200a38x16 
1020 BORDER #4,2,5 
1030 CLS #4 
1040 INK #4,2:AT #4,0,11:PRINT #4; "FREDERIC HUYNH" 
1050 INK #4,1:AT #4,3,14:PRINT #4; "PRESENTE" 
1060 INK #4,3:CSIZE #4,3,1:AT #4,3,11:PRINT #4;"SIMON":CSIZE #4,2,0:INK #4,4 
1070 AT #4,10,0:PRINT #4;" SIMON est un jeu de memoire , Vousallez voir apparai 
tre a l'ecran une suite de carres colores . À vous de les retrouver dans le bon 
ordre ." 
1080 PAUSE 50 
1090 INK #0,6:message "Copyright 1985 HUYNH SOFTWARE . Pressez <ENTER» pour cont 
inuer. “:INK #0,7 
1100 IF KEYROW(1)<>1 THEN GO TO 1100 
1110 CLS 
1120 AT #0,1,0:INPUT #0;"Quel est votre nom ? (max 9) > “inom$ 
1130 IF nom$ OR LEN(nomS$) 9 THEN GO TO 1120 
1140 INPUT# Choisissez le niveau de diff 
iculte del a 3 (1 etant le plus dur) “dif 
1150 IF dif‘1 OR dif »3 THEN GO TO 1140 
1160 INPUT #0;" Desirez vous avoir le son ? 
(Repondezpar (ui) ou n(on) ? ":2$ 
1170 IF z$-"oui" OR z$-"o" THEN b-1 
1180 CLOSE #4 
1190 END DEFine initialisation 
1200 DEFine PROCedure var 
1210 best$-"PERSONNE" :meil-0:score-0:comp-0:DIM x(8):DIM h(100):DIM so(100):er-0 
DIM sound(8) :b-0 
1220 RESTORE 1260 
1230 FOR i=1 TO 7 
1240 READ x(i),sound(i) 
1250 END FOR i 
1260 DATA 2,33,7,28,12,24,17,22,22,18,27,15,32,12 
1270 END DEFine var 
1280 DEFine PROCedure page 
1290 CLS:CLS #0 
1300 PAPER 1:AT O,12:PRINT "xxx SIMON xxx" 
1310 FOR i-1 TO 7 
1320 PAPER i 
1330 AT 2,XCi):PRINT " 
1340 AT 3,XCi):PRINT " 
1350 AT 4,XCi):PRINT 7 
1360 PAPER O:INK T:'AT 3,X(i)+1:PRINT i 
1370 END FOR i 
1380 PAPER O 
1390 m$-meil:AT #0,0,1:PRINT #0;"MEILLEUR":AT #0,1,2:PRINT #0,"SCORE":AT #0,2,4- 
CLEN(m$)/2):PRINT #0;:m$ 
1400 INK #0,5:AT #0,0,10:PRINT #0;"MEILLEUR":AT #0,1,11:PRINT #0; "JOUEUR" 
: 2,14-(LEN(best$)/2):PRINT #0:best$ 
1410 INK #0.3:AT #0,0,20:PRINT #0; "JOUEUR":AT #0,2,23-(LENCnom$)/2):PRINT #0;nom 
$ 
1420 s$-score:INK #0,4:AT #0,0.30:PRINT # 
#0:s$ 
1430 INK #0,7 
1440 END DEFine page 
1450 DEFine PROCedure jeu 
1460 REPeat boucle 
1470 CSIZE 3,1:INK 5:FLASH L:AT 6,8:PRINT “REGARDEZ BIEN":CSIZE 2,0:FLASH O: INK 
7 




















T #0, 





SCORE" :AT #0,2,32-(LEN(S$)/2):PRINT 
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1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
otre 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


1990 
2000 
ur 
2010 
2020 
vp.” 
2030 
2040 


felicitations ! 
continuer 


il 


PAUSE 100 

CSIZE 3,1:AT 6,8:PRINT * 
comp=comp+1 

h(comp)=RND (1 TO 7) 

FOR i-1 TO comp 

ecran h(i) 

END FOR i 

FOR i-=1 TO comp 

AT 17,0:INPUT ("Quelle etait la couleur du bloc no"&i&* * “):so(i) 
AT 17,0:PRINT " HS 
IF so(i)7 OR so(i):1 THEN GO TO 1560 

ecran so(i) 

END FOR i 

CSIZE 3,1:INK 2:AT 6,B:PRINT “VOS SOLUTIONS":CSIZE 2,0:INK 7 
PAUSE 50 

FOR i-1 TO comp 

ecran soti) 





CSIZE 2,0 





END FOR i 

CSIZE 3,1:INK 6:AT 6,6:PRINT “VOICI LES REPONSES" :CSIZE 2,0:INK 7 
PAUSE 50 

FOR i-=1 TO comp 

ecran h(i) 

IF so(i)h(i) THEN er-er-+1 

END FOR i 

IF er:>0 THEN EXIT boucle 


score-score+comp 
page:PAUSE 100 
END REPeat boucle 





page 
mes$-" Vous avez perdu au bout de "&comp&" essais ; avec "&er&" erreur(s) V 
score est de : “&score&” points. Pressez CENTER» pour continuer" 


message mes$ 

END DEFine jeu 

DEFine PROCedure ecran (ec) 
PAPER ec:AT 8,x(eC):PRINT " “:AT 9,x(@C):PRINT " “:AT 10,x(eC):PRINT " 
IF b-0 THEN PAUSE 5*dif :GO TO 1840 

BEEP (5000+dif),sound(ec) 
PAPER O:AT 8,x(eC):PRINT “ “:AT 9,x(eC):PRINT “ ":AT 10,Xx(eC):PRINT " 
END DEFine ecran 

DEFine PROCedure message 
CSIZE #0,3,1 

FOR i-1 TO LEN(a$) 

AT #0,0,27:PRINT #0:a$(i) 
PAN #0;-16 

IF KEYROW(1)+1 THEN CSIZE #0,2,0:CLS #0:RETurn 

PAUSE 3 

END FOR i 

GO TO 1880 

END DEFine message 

DEFine PROCedure fin 

IF scoremeil THEN 

message "Vous avez battu le record de “&meiig" points etabli 


Vous etes le nouveau detenteur du record . Pressez 


(a$) 


par "&best$&" 
ENTER: pour 


meil-score:best$-n0om$ 


ELSE message best$&" garde toujours son record de "&meil&” points , a ce jo 


reste imbattu . Pressez «ENTER? pour continuer LE 
END IF 
message “Desirez vous rejouer ? Pressez (ENTER: puis entrez Votre reponse S 


AT 18,0:INPUT "";a$ 
IF a$-"" THEN GO TO 2030 
1F a$-"oui" OR a$-"o" THEN RETUrn 
CLS #0:CLS #1:CLS #2 
PRINT #0:"(c) 1985 Frederic Huynh" 
STOP 
END DEFine fin 
REMark 2e 262 2 2 26 26 26 2 A6 2 DE HE MCD DEEE A NO RE RE RAR ARR ARR RER E 
DELETE mdv1_Simon 
SAVE mdv1_Simon 
DIR mdvi_ 
STOP 
PAUSE 10000 
BAUD 1200 
OPEN #5,ser1c 
LIST #5 
CLOSE #5 
STOP 
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: Fr. HUYNH 
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BRICOLAGE 





16 K RAM dans le ZX81 


Pour les fanas du fer à déssouder (débutants s'abstenir) voici de quoi 
intégrer les 16 k RAM dans le boitier du ZX-81 pour 400 à 600 F. 

Fini les extensions branlantes qui plantent le ZX, c'est bien plus 
esthétique, et en prime votre ZX gonflé ne consomme que 0,3 A. 

Le décodage est identique à l'extension 16K Sinclair, et si vous en 
branchez quand même une à votre ZX modifié, vous neutralisez la RAM 
interne (RAMOS = 1) donc pas de casse. 





Matériel 





Préparation des R.A.M. 





Deux RAM CMOS 8k x 8bits HITACHI 6264 P- 
15 un 74 LS 00. 






RAMCS (GE) 
A10 


RAMCS (CE) 
DO D4 
D1 D3 
D5 D7 


D2 
D6 


Fig 1 Brochage RAM sur le ZX81 
(Pattes repliées encadrées) 





Préparation du circuit imprimé 
81 





Enlever au fer à déssouder (manuel où auto.) la 
RAM d'origine qui est composée soit d'un boi- 
tier 4118 où de deux 2114. Procéder lentement 
et patiemment, sans forcer (normalement la 
RAM déssoudée doit encore fonctionner). 
Déboucher les 28 trous à l'emplacement mar- 
qué IC4, ainsi que les trous n° 9 (OV) et n° 18 
(+5V) de IC4b. 
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Sur chaque RAM 6264 relever les pattes n° 2, 
23 et 26. 


Placer les deux RAM l'une au dessus de l'autre 
et souder les pattes superposées (sauf les 
n° 26, 23 et 2). 

Préparer le contact entre les deux pattes n° 2 et 
les deux pattes n° 23, en les laissant à l’horizon- 
tale. Ne pas relier les deux pattes n° 26 ensem- 
bles. 


pattes repliées 


n°23 d 
o o 
n°26 n°2 


(==) = 


K ‘à 
souder (25 pattes) 


fig 2 Préparation des RAMs 





Montage 





Monter l'ensemble des deux RAM surperposées 
sur le circuit imprimé et souder. Les pattes n° 2, 
23 et 26 repliées à l'horizontale ne sont bien sûr 
pes soudées au circuit imprimé ni en contact. 
elier les deux pattes n° 2 ensemble puis à la 
cathode de la diode Di (A11) qui est au-dessus 
du connecteur clavier. Relier de même les deux 
pattes n° 23 ensemble, puis à la cathode de la 
diode D3 (A12). 
Placer le 74LS00, pattes en l'air, au-dessus de 
l'emplacement de IC4b (à droite de IC4). (On 
peut le coller si on veut). Relier la patte n° 7 du 
74LS00 au trou n° 9 de |C4b (OV), relier la patte 
n° 14 du 74LS00 au trou n° 18 de IC4b (+5V), 
(attention le 74LS00 est vu de dessous ;). 





Ts] connecteur clavie 


fig 3 741500 et connexions aux diodes 





Relier la cathode de D5 (A13) à une porte du 
74LS00 (par exemple pattes n° 9 et 10 ensem- 
ble) puis à l'une des broches n° 26 (CE) de l'une 
des RAM. 

Relier la sortie de la porte du 74LS00 (broche 
n° 8 par exemple) à l'autre broche n° 26 de l'au- 
tre RAM. 


C'est fini et ça marche... il n'y a plus qu'à déco- 
rer votre ZX81 d'une belle inscription “16K". 








mAH 








Vers le clavier 


fig 4 Implantation du circuit 





imprimé 


F. BOSSERT 
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Un Pascal pour QL : 
Pascal computer one 


Une implantation réussie de ce langage de haut niveau, exploitant au 
mieux les possibilités offertes par le QL. 

De nombreux langages de programmation sont disponibles sur le QL. 
Celui-ci est, en effet, une machine conçue pour programmer. Langage 
structure avec vitesse d'exécution élevée, recursivite et fonctions 
prédéfinies, le PASCAL s'impose comme un outil de développement. 
Sachant que le QL est doté d'un processeur 32 bits (68008 de 
MOTOROLA) et d’un système d'exploitation rapide pour les calculs 
scientifiques, on entrevoit aisément l'intérêt de l’utilisation d’un tel 


langage sur une machine de ce type. 


Le PASCAL COMPUTER ONE est vendu sous la 
forme d'une micro-cartouche accompagnée 
d'une notice claire et bien présentée, mais hélas 
dans la langue de nos voisins d'outre-Manche. 
La mise en œuvre de ce logiciel est remarquable 
par sa simplicité : 


La mise en œuvre de ce logiciel 
est remarquable par sa 
simplicité : 





en effet l'utilisateur est toujours guidé par des 
menus places dans des fenêtres adéquates. 

Le menu principal propose plusieurs choix : 
« EDIT » l'édition de texte, « COMPILE » la 
compilation, « RUN » l'exécution, « DIREC- 
TORY » la liste des segments, « DELETE » l'écra- 
sement d'un segment, « COPY » la copie, 
« FORMAT » le formatage d'une micro- 
cartouche, « MAKE JOB » la compilation en 
code machine, et « EXIT » le retour au basic. 
Apres cette brève description, regardons en dé- 
tail les différentes commandes proposées : 





EDIT, un éditeur performant 





Le PASCAL est un langage très strict ; la moin- 
dre erreur de syntaxe oblige à répéter le proces- 
sus édition-compilation, en effet, cet éditeur ne 
permet de repérer les erreurs de syntaxe lors du 
retour chariot. Mais, comparable a un petit trai- 
tement de texte, il autorise le coupe-colle, main- 
tenant classique, ainsi que la recherche d'une 
chaîne de caractères 

Le compilateur est conforme au standard |.S.0. 
à quatre exeptions près : 
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— Les procédures et les fonctions ne peuvent 
être passées comme paramètres. 

— Les entrées-sorties ont été modifiées afin 
d'utiliser celles du QL de manière optimale. 

— On ne peut pas employer l'indice de boucle 
dans les procédures appelées (il faut une varia- 
ble intermédiaire). 

— Les GOTOs ne permettent pas de saut à l'ex- 
térieur des corps de procédures ou de fonctions. 
En revanche, les ajouts au standard permettent 
de tirer profit des possibilités graphiques et so- 
nores du QL : 


procédures: point grafill scale  ellipse.. 
procédures : beep et bell 


L'horloge interne n'a pas été oubliée, trois pro- 
cédures, où fonctions lui sont consacrées : « set- 
clock », « adjustclock », « readclock ». 

D'autres procédures et fonctions, telles « peek », 
« peekw », « peekl », et autres pokes, complè- 
tent les accès mémoire. 


La production 
du programme-objet 






Le point fort de ce PASCAL c'est « MAKE JOB » 
ou comment produire du code machine. 

Si la programmation et la mise au point s'effec- 
tuent en PASCAL pseudo-compilé, l'utilisation 
proprement dite du programme doit être indé- 
pendante de l'environnement PASCAL. Cette 
option transforme (compile) un segment 
« pcode » en un segment contenant du code 
machine exécutable (par EXEC et CALL). 

Cette possibilité, banale dans un compilateur 
traditionnel, trouve ici son importance dans le 
milieu multitâche du QDOS. 

La configuration PASCAL + QL obtenue, plaira 
à tous les étudiants et programmeurs appréciant 
ce langage, tant du point de vue prix, que de 
celui de la qualité. 


— à 


+: 2 





Liste des procédures et fonctions standards : 


ARCTAN 
ODD 
SQRT 
PUT 
WRITE 


PAGE 
REWRITE 


WRITELN 





EOF 
ROUND 


GET 
DISPOSE 





Franck-Olivier Lelaidier 


Augustin Garcia 


Configuration Brother M 1009 


sw1 


sw2 


Cette imprimante est vendue avec une interface 
spéciale pour le QL fabriquée par EPSON. Pour 
l'utilisateur non éclairé il n'est pas toujours aisé 
de comprendre les options de configuration. 
Voici les options retenues par l'importateur : une 
description des deux boîtes de commutation 
vous permettra de configurer l'imprimante à vo- 
tre gré. 

















L- 


ON 
Vue supérieur de l'avant de l'appareil. 























8 7 6 5 4 3 2 1 

EEE EE: [x 
x Ï Ï Lx X 
ON 


sw1 

1 Contrôle de parité SANS ON 
2 X-ON/X-OFF NON TRANSMIS OFF 
3 Vitesse de transmission 9600 bauds ON 
4 Vitesse de transmission 9600 bauds ON 
5 Vitesse de transmission 9600 bauds ON 
6 Parité IMPAIRE ON 
7 Niveau de code de caractère 8 bits OFF 
8 Mode d'interface SERIE OFF 
sW2 

1 Longueur de papier 12" OFF 
2 Sélection de jeux de caractères FRANÇAIS ON 
étrangers 

3 Sélection de jeux de caractères FRANÇAIS ON 
étrangers 

4 Sélection du type de zéro BARRE OFF 
5 Saut de perforation INVALIDE OFF 
6 Autres jeux de caractères NON OFF 
étrangers 

7 CR (AUTO FEED XT) SANS LF OFF 
8 SLCTIN NON FIXE ON 





Trucs à brac 





Plombage en or. 





Choquantes, n'est-ce pas, les premières lignes 
de ce programmes de ZX 81 ? 

S'il s'agissait d'un programme de Spectrum, on 
comprendrait la présence des instructions READ 
et DATA, mais il faudrait se poser des questions 
quant aux trois lettres précédant le signe dollar 
dans des noms de chaines. 

L'éditeur de lignes des machines Sinclair est ré- 
puté intransigeant sur le plan de la syntaxe et 
pourtant ! 


En fait, ces lignes ont d'abord été écrites sous la 
forme de REM, à l'intérieur desquelles on sait 
qu'il est possible de loger à peu près n'importe 
quoi : 20 REM READ MOTS (frappé lette à let- 








19 FOR F=i TO S 

EN] RÉBo HOT 

38 PRINT 

48 DATA "HOTE 
HOT: 


Ho 
LHOTÉ D et HOTE", 


RECHERCHE DE LIBNE 


216588 
ROUMERO DE LIGNE 7° 





Sosus a72e 
BNL THEN LET Wz=tE 
BANL THEN SOTO 9S2R 










aa 
ÉEK _{N+1: 22S6#PEEK W 
+PEEK 1H328: +2S84PEEK 


fi 
"LIGNE ND “ML; Où P 


PRINT 

BHME" 

PRIN 

PRINT ÉAGRESSE BU EMA FE 
+ "SE TÉTE 

PRINT AT 18Si ue 

PRINT FT 18, FFéour ve cer 


zen 
PRINT, Fr 20.8 
RÉR COPYRIGHT 


NO PB RDS QAR LUDO 
ss6r 0. -98786+ 688012955986 


1sss 
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tre). Ensuite, il a suffit de POKEr des 0 à la place 
des codes des mots-clé REM placés en tête des- 
lignes à « falsifier ». 

Pour ce faire, la partie de programme située 
après le STOP (que l'on peut appeler par un 
RUN 9200) est bien utile : elle trouve en effet 


l'adresse du caractère de tête (mot-clé) de n'im- 
porte quelle ligne ; il ne reste alors plus qu'à y 
poker ce que l'on veut, notamment ce fameux 
Zéro. 


Bien sûr, la machine refusera tout net d'exécuter 
de telles lignes, mais sans pour autant se « plan- 
ter », ni à l'exécution, ni au listage. 


Par contre, si on « sort » une ligne de ce genre 
grâce à EDIT, il ne sera plus possible de la faire 
«remonter » dans le programme, sauf à lui « ren- 
dre son REM » au préalable. 

Mais, direz-vous, à quoi peut bien servir cette 
méthode ? 


D'abord, il s'agit d'une petite curiosité toujours 
distrayante à noter, et instructive à expliquer. 
Enfin, des applications peuvent être trouvées 
dans le domaine du « plombage » des program- 
mes : remplaçons quelques lignes bien choisies 
d'un logiciel quelconque par des lignes ainsi tru- 
quées (sans pour autant introduire d'erreurs de 
syntaxe), et l'exécution deviendra impossible, au 
besoin partiellement : la machine s'arrêtera de 
façon apparemment inexplicable sur un compte- 
rendu d'erreur tout-à-fait farfelu (en général un 
©) 


Le « déplombage » consiste totit simplement en 
une réécriture de la ligne où des lignes en cause, 
que l'on peut repérer grâce à leur décalage (dis- 
cret !) d'un espace vers la droite. 

Eventuellernent, ce décalage pourrait être sup- 
primé, mais il ne ferait alors pas bon oublier 
quelles lignes ont été « piégées » ! 


Patrick GUEULLE 





5 cassettes de jeu 





Une pile qui ne s'use pas si l’on 
s'en sert. 





Sur la demande de plusieurs lecteurs. C'est bien 
volontiers que je donne ci-après quelques éclair- 
cissements sur le transfert d'un nombre de la pi- 
le calculateur dans une variable du programme 
Basic. Prenons un exemple qui réalise 
64 x 200: 

Si vous faites POKE 32002,1 qui charge BC 
avec la valeur 320, PRINT USR 32000 vous affi- 
che 64000. 

Si vous faites POKE 32002,2 qui charge BC 
de valeur 576, PRINT USR 32000 vous affi- 
che 0. 

La valeur exacte, 115200, est trop grande pour 
être tenue dans BC qui est le retour du USR. 
Effectuons le transfert de la pile calculateur vers 
une variable Basic à l'aide d'un programme en 


à la place de CALL DEPILE, ajoutons ceci : 
32014 ED,5B,4B,5C LD DE, (VARS) ; (23627) 
32018 13 INC DE ; fier octet = lettre x 

32019 2A,65,5C LD HL, (STKEND) ; (23653) 
82022 01,05,00 LD BC,5 

32025 A7 AND A; 0 

32026 ED,42 SBC HL,BC 

32028 ED,BO LDIR 

32030 C9 RET 

Entrez le Basic suivant ; 

1LETx= 0 

10 RANDOMIZE USR 32000 

20 PRINT x 

999 STOP 

faites RUN, vous avez 115200. 

Il faut que la variable Basic utilisée soit déclarée 
dans un programme Basic au début de celui-ci 
pour que cette variable prenne la 1'° position de 
la zone variables quand on exécute le program- 
me. Il suffira alors de transférer 5 octets de la 
zone STKEND dans la zone VARS (le 1° octet 
de cette zone contient x puisque'on a déclaré 
une variable d'une lettre x). 





M. HENROT 








X-TRICATOR (ZX 81) 
Software Farm 





CRYSTAL 5 (ZX 81 16K) AGB 





Transportés sur la planète Crystal 5, récemment 
découverte, vous devez découvrir la raison de la 
mystérieuse disparition de 12 explorateurs. 

Jeu décomposé en trois parties sur la cassette, 
plus une introduction vocale à la mise en œuvre 
du jeu, innovation intéressante. 


B.C. 
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Mission très dangereuse : récupérer Vos camara- 
des égarés sur la planète Alien avant qu'ils ne 
soient faits prisonniers par les habitants de ce 
monde hostile. 

Jeu en haute résolution graphique, sans modifi- 
cation du ZX 81 version normale : c'est-là le 
principal intérêt de ce jeu qui, pour le reste, 
manque un peu d'originalité et se plante parfois 
{introduction du nom du joueur). 


B.C. 


— -—— 





Alien 
ULTIMATE (G.B.) 
Spectrum 48 K 





Dans une lointaine galaxie, sur une lointaine pla- 
nète. Ainsi commence la notice de ce pro- 
gramme distribué par Ultimate, une marque qui 
a déjà produit de bons jeux d'action pour le 
Spectrum. Disons franchement que celui-ci est 
presque excellent : il peut même vous rendre fou 
à lier et vous faire envoyer à l'asile d'aliénés ! 
Mais trêve de jeux de mots, et voyons le principe 
du jeu. Vous êtes un petit robot, charmant, 
Alien, ultra-sophistiqué (rien à avoir avec le mé- 
chant humanoïde du film d'épouvante spatiale). 
Alien a une mission : sauver la gent humaine en 
s'occupant des corps cryogénisés (conservés 
gelés dans de l'azote liquide). La base du pro- 
gramme, qui est presque un jeu d'aventures, est 
originale, un peu morbide certes. Mais avant 
tout, les graphismes et les sons sont remarqua- 
bles : trois dimensions, hautes définitions, mélo- 
dies. Mais hélas, pour que le jeu fût excellent, il 
aurait fallu que la notice (un superbe livret de six 
pages !) soit rédigée dans la langue de Balzac et 
non dans celle de Shakespeare. Comme l'aven- 
ture est complexe, on ne comprend donc pas 
fout ce qui vous arrive et ce que vous devez 
aire... 


J.-C.A. 








STOPPEZ LES MISSILES 
(Spectrum) CP Software- 
Semaphore Logiciels 





Ce logiciel est le premier jeu d'aventure graphi- 
que, pacifiste, non-violent, non-sexiste et satiri- 
que. Eh oui, pour une fois vous n'irez pas dé- 
truire une quelconque armada de l'espace, non, 
vous êtes Annie, une gentille pacifiste qui veut 
empêcher le méchant président Raygux (il ne 
vous rappelle personne ?) de déclencher la 
guerre atomique. Pour prévenir l'apocalypse An- 
nie envoie des bisous aux policiers et aux sol- 
dats ; en revanche, son charme n'a aucun effet 
sur la Dame de fer (de quel pays vient le Spec- 
trum déjà ?) et un journaliste vient compliquer le 
tout. 

Ce jeu, à déconseiller formellement aux militaires 
et militaristes, est plutôt un jeu d'action. Le joys- 
tick (Kempston) est sinon indispensable, du 
moins bien utile. Les graphismes sont char- 
mants. Oui vraiment, nous avons bien aimé ce 
jeu plein de bons sentiments qui est assez dis- 
trayant. 


mms 7e EN 





48K SINCLAIR ZX SPECTRUMI 


IV VTINSNTE 


Lan 
PLAU THE GAME 


( 


MAUDITE » 22 sPecraum E 








L'île maudite 
de LORICIELS 
Spectrum 48 K 





L'île est peut-être maudite, en tous cas le jeu ne 
le sera pas par nous ! Ce programme est un jeu 
d'aventure, en français. 

Vous n'aurez donc pas besoin d'un bon diction- 
naire où d'une licence d'anglais pour errer dans 
l'île maudite, en évitant les multiples obstacles 
(par exemple les requins dégénérés) glissés par 
ün programmeur vicieux qui veut à toute force 
vous empêcher de rejoindre le sous-marin qui 
doit vous emmener dans un paisible port. À cha- 
que tableau apparaît un graphisme simple mais 
utile. Vous « dialoguer » avec l'ordinateur en 
vous aidant d'un vocabulaire donné. 

Nous avons trouvé ce programme très attrayant. 
Nous regrettons toutefois que Loriciels ne livre 
pas le vocabulaire sur la notice (le recopier, si on 
n'a pas d'imprimante, c'est long), et qu'il n'y ait 
pas de plan général accessible à tout moment 
pour savoir sa position. En revanche, nous ap- 
précisions grandement le graphisme, l'humour, 
le suspense du jeu, l'emballage « livre » pratique 
et élégant, et aussi la possibilité de jouer tous 
dans la même équipe en se relayant, car les par- 
ties peuvent être longues... 





ORDI-5 n° 13 septembre 1985 — 29 





LANGAGES 


Logo compilé 


Le LOGO a un charme particulier, 


surtout auprès des jeunes 
programmeurs, mais pourquoi faut- 
il que la fameuse tortue se promène 
toujours aussi lentement, sauf dans 
les réalisations complexes et 


fermées ? 


Voici justement un LOGO rapide, 
car les différentes procédures sont 


compliées, et ouvert, car 
l'utilisateur peut ajouter de 
nouvelles routines-mouvements. Le 


tout rentre parfaitement dans les 


16K d’un ZX81. 


DIM P$(29,2,8) 


DIM P(29,6) 


Entrer les valeurs directement, par exemple : 
LET P$ (1,1) + “A, etc. 























Une tortue qui va plus vite 
qu'un lièvre 





SPIRALE E,8 











TABLEAU P$ 
1 2 
1 A AVANCE 
2 D DROITE rss RE 
G GAUCHE sue - 
; M MONTRE # REPETE  @H 
$ € PAIE F'ATPRLE 
6 H HOME + GAUCHE ai 
oi Mère | 5 BERG en 
8 < AUGMEN 
9 > DIMINUE À PENVREPE 
TABLEAU P 
1 2 3 4 5 6 
ie: 135 64 134 64 
c] 162 65 163 65 
3 148 65 149 65 
4 134 65 
5 141 65 
6 92 65 
7 187 65 188 65 194 65 
8 107 65 108 65 
9. | 14 65 115 65 
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Créer tout d'abord deux REM, une première 
contenant 327 caractères et une seconde 
contenant 1024 caractères. La première REM 
contiendra les instructions de base du langage, 
la seconde contiendra les instructions crées par 
l'utilisateur. 

Vérifier que « PEEK 16842 » donne bien « 118 » 
et que « PEEK 17873 » renvoie « 118 ». 

Entrer ensuite les 327 octets constituant les rou- 
tines de base dans la REM 1. La liste des codes 
est donnée en annexe. 

Entrer le programme BASIC. Pour fonctionner il 
manque à Logo les tables suivantes qui doivent 
être entrées à la main : 

Lancer ensuite GOTO 11 afin de sauver l'ensem- 
ble du programme et des données sur cassette. 
Le programme ne devra jamais être lancé par un 
RUN qui détruirait les deux tables P et P$. En 
cas de « plantage » relancer LOGO par un 
GOTO 100. 





Les mouvements de la tortue 





Dès le lancement du programme on doit obtenir 
un chevron en vidéo inversée en haut à gauche 


$ 





RSUSRRS. 





S ; PEEK 
3 PEEK 
3 PEEK 
THEN _GOTO 
THEN GOTO 118 
TRÉR 6070 188. 
EN GOTO 6009 
THEN GOTO 5000 
GOT. (3 


O0 _1@a 
PRINT AT 8,8 







‘6009 66Q00PFH 





BÉCESEE 


OmZZ 
ÉÉEUNI 
MmUZ _H: 





8 
RRNRNNEBDPEE"PRBHBBBBEBRE BEBE 


@,0;P#(T,2 
:4)=6 TH à é0To 300 
AT ©,8;" F 


3) +256*P(I,4)),N 
à THEN GOTO 3006 


SOPU-OSS OS0JUO0NAUPHUD NA 


DESSOSSNA ROUNENNEEEEEE 


2930 





2 
8.10. 
5) +2564P (1,6)),M 
ds". 


GS LET A=USR (P(I,1)+256#P{I,2 





ENT M LOGO ZX 61 (C)P.A 
INT (17872-PC) /1824;" KOC 


62898800 
Let 


[LAIT 


:HbibChepe © 
sen 

48 0- 

DESSUS 


= 
NT 
NT ‘“UOULEZ-UOUS:";TAB 27 
NT 
NT 


£CREER UNE NOUVELLE 
*CORRIGER ‘“;P#(K-1,2 
pes 31; 


PF ENREYS="" THEN GOTO 1075 
88e 2F INKEVS="2" THEN GOTO 122 





In 06(69,16) 
118 É K=29 THEN GOTO 9909 





de l'écran et trois nombres en haut à droite qui 
sont respectivement : la position de la tortue en 
abscisse, en ordonnée et son angle par rapport 
à l'horizontale (en multiple de 45 degrés). 
Toutes les instructions sont entrées par des 
pressions de touches : 
— instruction du groupe 1 : mouvements de la 
tortue. 
“A” : avance de n points 
“G" : tourne à gauche de n fois 45 degrés 
“D” : tourne à droite de n fois 45 degrés 
"M" : les déplacements de la tortue laissent une 
trace sur l'écran 
“C" : les déplacements de la tortue deviennent 
invisibles 
“V" : va-en n,m sans laisser de trace 
“H” : retourne en 0,0 sans laisser de trace. 
— instructions du groupe 2 

Y"' : affiche la plaie mémoire disponible 
N": nettoie l'écran 














:" : copie l'écran sur l'imprimante 

“stopo” : retour au basic 

“B" : bibliothèque : affiche la liste de toutes les 
routines existante ainqi que la touche permettait 
de les appeler. 

“E" : efface les routines à partir de cette spéci- 
fiée par l'utilisateur 

“P"; passage en mode programme. 

Toutes ces instructions sont utilisables en mode 
direct dès l'apparition du chevron. 






1128 CLS 
1130 PRINT “NOM DE LA PROCEDLIRE 
1148 INPUT P#(K,2) 
1188 PRINT 1,2; P#iK, 2) 
1168 PRINT AT 5:@: "TOUCHE CORRES 
PONDANTE 7" 
1185 
1178 « 
1153 Fabatz,1) THEN GOT 
9 11 
1173 
1174 L, 
1i=" Ks 
2,17 si 
Na * PB 
SIK;:1,1)= OR 
COÉE (es ps 
13="R" O è 
& CODE {P$ DE 
PACE TE FA 
1)=118"0R ie 
HEN_GOTO 1 
1175 GOTQ 
L176 PRINT UCHE DEUR UTILISEE 
1177 @ota 
Liga PRINT D: Faut 1) 
ne PU Hi à 
1199 LET Hetei 
LEGS PRINT “NOMERE DE PARAMETRES 
1281 INPUT A 
1802 PRINT A 
1809 IF An@ THEN GOTO 1219 
12@4 IF Ani THEN GOTO 1889 
1805 GOSUB 9000 
1808 LET PIK-1:8) M1 
1287 LES P(K=L à 
3 sé PC=PC 
PUR Te 23 mrt2 
1211BLET P(K-1,4) =M2 
1212 LET PC=PC+1 
1213 GOsuB 9060 
1214 LET P(K-1,2) =M2 
HN eu 
x 
1320 IF K=18 THEN GOTO 10800 
1828 LET 1-0 
= 
1339 IF O8(I+#1,1) <>"#" THEN GOTO 
1233 PRINT AT I,@;,08(Z#4,43;5" "; 
ASS LT Tori 
= 
RC D 1221 THEN PRINT AT 21,29 
1287 IF _ I=21 THEN GOTO 1240 
18238 60T0_ 1290 
1240 FOR I=1 TO 758 


ORDI-5 n° 13 septembre 1985 —31 





LANGAGES 







IF @${I,1)<>"#" THEN LET SP 
IF O$(I,1)4>"#*" THEN GOTO 3 


IF PP=80 THEN CLS 
IF PT=61 THEN GOTO _99a0 
IF PP=80 THEN LET PAGE=PAGE 


LET 9$ Cat "x" 





ANORDR RADARS R 1 À 


NUNGUS GRONWON Grû 





"PAGE : “ ; PAGE 
HEN GOTO 1877 


EY 
THEN COPY 

IF_A$= THEN GOTO 1268 
LET CODE=CODE A 

SPAS RE UE OR CODE=113 THE 


Q 3 

IF CODE=114 OR CODE=115 THE 
O0 _ 1380 
Z 
Tz 
I 


10 00 FOR PORN NF DIU A) 0 10 GI HR 





Où 6 0 C6 @ D 
gl 


JOUE 


Lu} 
[Opel 
nl 


F CODE=117 THEN GOTO 1408 
| À ="@" THEN GOTC _158@ 
{PT ,2) >" “ THEN GOTO 


* THEN GOTO 1315 
P Ph? “RÉPÊÈTE"; 
PRINT ‘ ñ 


INPUT US$ 
x ="M" AND P(K-1,6) =2@) 
28 QUSSON" AND PIK-21,4) m0) THEN 


1307 IF LEN U$=1 THEN LET Ug="@" 


FI 





banbhhbhpZhZhtephrsephap + DR UE HE 


D OUU VAR 
UPOON UNS 


S9080\0000 






+ 
13: PRINT AT _PP sas 
1319 LET O#$(PT,18 TO 19) =U$ 
1811 LET O4 (PT; 2) =°R" 
13 LET O$(PT,S TO 1@) ="REPETE 
18313 GOTO 1 
1315 FOR I=1 TO K-2 
1817.87 AS =P#(T,1,1) THEN GOT 
1328 NEXT I 
1321 27. Bga" ar THEN LET G$(PT,3 
TO 18) ="FIN, REPE" 
1982,IF THEN PRINT AT PP, 
1823 ZT THEN LET O8(PT,2) 
1384 I THEN GOTO 1368 
1988 2 THEN LET O#(PT,2 
13& FA THEN GOTO 150@ 
1528 G 
1340 L ,21=A8 
1341 L 3 TO 10) =P#(I,2) 
1345 F ÉP,2;08(PT,9 TO 10 
1345 L. =2 
1347 T 6)=Q THEN LET NBP=1 
1382 1 4)=8 THEN LET NEP=@ 
1353 F1 O NSP 
1355 PRINT AT PP,8+34G; "# 
1357 INPUT U$ 
1368 IF, (Ua=" M" AND P(K-1,6) =@) 
DE AUSzUNT AND PK-1,4) 5j THEN 
GOTO 99! 
EE LF LEN Ug=1l THEN LET Ug="o" 
1864 PRINT AT _PP,5+320; 4 
ARS LET os(PT, (6#S#0) TO 110+2x 
1967 NEXT 
1368 LET SP=5P+1 
1369 LET PP1=PP 
1370 LET PTaPT+1 
DE Bisrtue 
1373 JF PP=0 AND CODE=112 OR PT= 
56 AND CODE=113 OR _PP=20 AND COD 
Em113 THEN GOTO 1277 
1229 LET PT aPT+(CODE=119) - /CODE = 
PP1=PP 
1378 tEt PPaPP+ (CODE=113) - (CODE = 
112) 
1377 6070 1260 
S8 IF (PAGE=1 AND CODE=114) OR 
TRades+20) SP AND COPES118) THE 
N_GOTO 1277 
1968 Let PT =PT+20s (CODE=118) -20# 
= 
F_PT>SP THEN LET PT=2S5P 
1888 CET PAGE =PAGE + (CODE =118) -1C 
o0E 
1387 LÉT LIM=2O#INT (PT/20) 41 
1399 FOR I-LIM TO LIM+20 
= 
1999 PRINT 9867,1)7" 508(1,9 TO 
1395 NEXT I 
1397 GOTO 12 
1400 PRINT AT PP,1;" 
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1405 LET O$ (PT) ="# 


LS 
PRINT 3 JONLEZ- VAL LA COMPTI 


3 

LATION too 

i6es 27 INNEYS THEN GOTO 1593 
EY#="N" THEN GOTO 108 





1564 IF INK 
1596 DIM R(16,82) 
1597 LET S=0 


ELLE 
Éd nl LET PC=P(K-1,1)+258#*P{IK-1,2 









1519 FOR I=1 TO SP+1 
511 PRINT AT 5,5; "UNE PETITE SE 

CONDE a 6,5; "J.EN SUIS 
Ê LA L 

1512 L a) 

SOS TZ Ë) «15 THEN GOTO 

1515 1: THEN GoTto 6209 

1516 1 THEN GOTO 

1580 1F THEN POKE PC, 201 

1821 IF THEN L. PC=C +1 

1582 7r THEN GOTO 

1538 Fa K- 

1540 IF A #(J,1,13 THEN GOT 

9 160: 

1550 N J 

158Q PRINT AT 21,0; "INSTRUCTION 

INCONNUE LIGNE “;I 

1579 GOTO 2535 

1619 LET NBP2=2 

ar IF Q$(I,18)=" " THEN LET NS 
= 

ses XF @#(1,19)=" " THEN LET MS 
= 


FOR G=1 TO NSP 
1659 LET AS=D$11I,1(9+3#0) TO (29+# 
Pr) IF CODE A$(RI1<38 THEN GOTO 









[1 
1690 ZE A8 (2) = THEN LET IND=5 
709 17 Ahiai="N" THEN LET IND=S 

JF Q$iI,Bia" rt OR Df{Ts She" 

STHEN G0TO 2880 

a PGNE PC,5E 
1720 POKE PC+1,R(K-2,INDS 
1729 POKE PC+2,P(K-1,IND+1) 
1749 PORE PÜ+2:22 
1759 POKE PC+r4,P1{J,1+2+0) 
PSG PORE ECS PIN: BTE 
£ Ca, 
1760 LET PC=PC+7 
1790 GoTo 3209 
3000 POKE PC,938 
2010 POKE PC+1,P(u,1#2#81 
2020 POKE PC+2/P(J:2+280) 
2659 POKE PC+3,62 
5048 POKE PC+4;UAL 78 
5080 POKE _PC+8,119 
2060 LET_PC=PC+S 
Éseo NEXT € 
3600 POKE PC,208 
2510 POKE PC+1,P(J,1) 
2520 POKE PC+2,P (J,2) 
2530 LET. PC=PC+9 
2540 NEXT I 
2860 POKE PC,29 
2560 POKE PCI1,PtJ,2) 
2570 POKE PC+2;P (U;4) 
2589 POKE PC+3:54 
2598 POKE PC+4;P(K-1, IND) 
2608 POKE PC+5,933 
2618 POKE PC4+6; (PU, 92 #1) 
2620 POKE PC+7:P (Jy4) 
2634 POKE PCI6,54 
2640 POKE PC+9,P(K-1, IND+1) 
2880 POKE PC+10,205 
2660 POKE PC+11/P(U,1) 
2870 POKE PC+12,P (1,2) 
2680 LET PC=PO+18 
26908 ER 
S000 REM 
5001 LET FLs 
Saez CLS 
5002 GOsuB 
2088 BRINT “INSTRUCTION 
À PARTIR DE LLEON NETIOIE" 
S008 LET FL=@ 
5010 INPUT B$ 
5011 FOR A=xl TO K-1 
S012 17 B#=Pe(A,1,11 THEN GOTO & 
S02a NEXT A 
Sese GOTo _Seac 
5040 LET FLaû 
S10a IF 418 THEN GOTQ 19û 
5108 LET Man 
5119 LET PC=P(A,1) +256#P (A,21 
S111 FOR ? o'28 
5112 LET PI, 4) =D 
5113 HEx 
5115 LET 
S12a GoT 
3000BRE1 CECSRRERSENEREEEEEEEES 
S001 GLS 



















882 PRINT AT _@,@; "PROCEDURE 
LETTRE UTILISEÉ" 
883 PRINT 





CUB=1 
FOR T=1 TO K-1 
PRINT P#(T,2);TAB 15;PS#(T, 2 
IF T<174CUB THE! 6232 
PRINT AT 21,0; 3 
Sn EP SINKEV g="* + 6eza 


LET _CUB=CUB +1 
HEXT T 


IF Flei THEN RI 
ER IT 21,0," pe 
KI TH 6037 
êLs 
STOP 
REM 
B YF s215 N PRINT AT 21,@ 
= à 
IMBRIQUES * 
GS IF S=15 THEN 
QUE ÉHEE 


OO 2535 
MEN GOTO E20P 
HEN GOTO 8119 












Si IF S= 285 
IMPOSSIBLE À LA LIGNE “;2 
& IF S=9 THEN PAUSE EO 
GS IF S=2 THEN GOTD 3122m 
gs ÊQKE PC, 
19 POKE PC+1,21 
SS20 PURE PC+2: 194 
SG POKE PC42;:R(S: 1) 
ÉSAQ PORE PCta; Ris; 
SO LET PC=PC+S 
588 LET S=8-1 
#S70 G0TO 
Da 
1 LET Him c 7 
8018 LET Ha=INT (PC/258: 
22 HET: 
2900 REM 
S9a1 PRIN 185 
3308 POKE PC,a201: 
3910 GOTO 168 
LET _Na=i 
3991 IF PIK-21,4)=@ THEN LET H: 
2993 PRINT AT 2 PRIKELRR I N 
UE “IN; " PARAMETRE (8) à 
3994 INPÜT 
9998 PRINT 21,0; 





29298 1F A#z"R" THEN GOTO 1305 
9397 GOTO 13558 





16514,0,0,0,107,0.205,64,6S,1 
16529,152,64,2,893,190,64;:70,39 
16531,151,64,76,56,156,64,56,48 
16555,64,206,176,11,58,138,64 
18546,93,190,64,70,43,131,64,7e 
16554/254,0,204,226,84,254 1204 
16562,296,64,284,2,2404, 251; 84 
16569,254,3,204,4,65,264,4.204 
16577,18,65,254,5/204,94,66,284 
16585,6,404,26,65,254,7,204,49 
16593,6$,33,136,64,112,453,181 
16600,64,118,39,194,64,94:29,118 
16606 ,194,148,84,201,103,121,284 
16615,63,124,400,12,201,103,121 
16622.254,68,124,2006,108,120,254 
18629,49,124,200,12,4,201,10$ 
16628 /126,284,45,184,00,4 Bei 
ISeSa:121:280:0 144 4004-18 20T 
16658,105,121,264,0,124,200, 13 
16665,201,183,120,264 0; 124,200 
18872,5,261,103,120,264,0,124 
16679,260,163,121,264,6,144,200 
16666,5,18,201,108,126,254,6, 124 
16654:260,103,121,654,63, 144: 200 
16701:5,18,201,68:192:64;:209:99 
16709,265,89,265,45,205,89,26 
16716,99,209,63,205,69,203,69 
16723,208,63,206,65,33,192,64 
16750,119,201,62,0,83,158,64,119 
16738:35,131,64,116,538 182,64 
16745,118,201,36,287,66,52,0,0 
16759:201,39,É0,66,58,0,0,2401 
RE NE MONET EE 
16761:98,183,64,64,169,143,201 
16788:6,1,58:134,64,126,58; 192 
18796.64,119:205,64,65,201,8,4 
16804,58,132,64,144,2n,122, Ed 
16811:116,205,64,65,201,0,0,0 
16819,0,0,8,0,8,6,0,0,62,40,32 
16650,161,64,116,62,0,33,196,64 
18838: 118/20i,126,64,418 


COMMANDEZ VOS LOGICIELS 


EN ANGLETERRE 





2500 TITRES DIFFÉRENTS 


pour AMSTRAD - BBC - COMMODORE 64 et 16 - DRAGON 
ELECTRON - MSX - QL - SPECTRUM - VIC 20 et ZX81 
dont 200 titres à 50 francs OU MOINS! 





Offensive Q.L. 
Pius de 40 livres et des dizaines de logciels/progiaiels dont 
e Assembler Metacomco 480 F € Lisp Metacomco 720F 
e Disassembler Hisot . 250 F € GraphiQL 420F 
e Hopper (Jeu d arcade) . 180 Fe BCPL Metacomco 720F 
e Lands of Havoc (Aventure graphique avec 2000 écrans) 250F 


+ Cartouches Microdrive (en stock !) les 8 : 260 F - les 16 : 500 F 


SPECTRUM 
600 logiciels et 30 livres techniques 
AMSTRAD 
Copieur de programmes (K7) 
pour copies personnelles seulement 
Instructions en français 100 F 
RÈGLEMENT PAR MANDAT INTERNATIONAL (en francs) 
ou EUROCHÈQUE (en livres sterling). 
TOUS FRAIS DE PORT ET D'EMBALLAGE COMPRIS. 
ENVOI IMMÉDIAT DANS LE MONDE ENTIER. 
Instructions séparées en français fournies sur demande 
avec la plupart des JEUX 
RECEVEZ RÉGULIÈREMENT PENDANT { AN 
LES LISTES POUR VOTRE ORDINATEUR CONTRE 20 F 
{remboursables 1° commande). 
Vous pouvez réserver vos commandes en téléphonant 
à Didier, Jean-Pierre et Caroline. 








DUCHET - 51 Saint George Road 
CHEPSTOW - NP6 5LA - ANGLETERRE 
Téléphone : +44 - 291 257 80 
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# 
pe 
# 
L je 
SNGO TTTTCTTET TT 
GO TTTTTI1143 van. 2000000000000 atganennncann 


o 
asttoalia aagoawazo0 IGOW500000O: B66868acokianaua aa 000000000000 0000ûa! 
re JHZZXIOZZIKZZZZZZZZZZZZZI11X1110. Ji01IONZZZZZZZZZZZII)1IX 


t48S4) 


LT 8 


1 
+ # 4 
5 SaANaTTOSED 88 n à 
GR OUOS-ALOOGONTONLAQONGAGNT- AU Ait. A1N IA On 1 AÏSOSSESSSSOSOSALUNAAUR NOTE TN GR 
(el Logr aloencaanesanann LOTS ATE LS COLE TEE TELE ST SANS OS IIS SSP PSS SSSR OR OBPTUR 








nT = 
+ 9 D: +4 0 
O0T0-D-0-N0nD-0— 
+5 -691900860-9.1 
Ad dL#ISODédIdL 


co r ca € œü tr œu Tr tu x tu r  «wr 
2 s S “HO :* “0 -N::S-NUO --#%-NO --9 °NQ 
Lañe rene 7 rot roNc reëc re$e rase 


aaotashauat baanelianrate2taaratéliacalienrahettaasetithioondliutionnd 
13109010 1THEJJOIC 110 JLMAEL AO JLHÉSIO IX JO ITHOL IIS ITOL 110 1COX 10 Ji 


= OÙ Jet 51-10 

J 10-IMIOG-JTTHIUS. 
aoû 04 J 
22212699900000%a0000 


# 
u 
e 
+ 
W +0: "88 >" = _N 
 J' 
FT 
ZZZ1704311311101311100 


CALL Z,4122 


CALL Z,41093 
CP 96 


CP 94 
CALL Z,4112 


cr es 


a 
+ 
+0 © D 0O000 © SUSNOLIGS 8 4 È 8 
SO8090 1040 1 T AUOT 10 LU LOU O WU OL Ps PR AUODÉQUT-AUODORDHODNANDLUNDE 
SSS060080+4400000<+04%LOIL OL OLOI O0! HRBÉOUGRER RER OBEDREL 0 © 


SIDVONVY1 
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Il est possible de créer d’autres 
routines qui, une fois compilées 
feront partie intégrante du 
langage. 





Pour cela il est nécessaire de passer en mode 
programme. 

Après passage en mode programme deux pos- 
sibilités sont offertes : 


— création d'une nouvelle procédure 
— correction de la dernière procédure entrée 


* création d'une nouvelle procédure : 
donner : 


— le nom de la procédure 
— la touche associée ; 
— le nombre de paramètres (au maximum 2). 


Ces deux paramètres seront désignés par les 
lettres N par le premier et M par le second. 





La possibilité de générer des 
caractères graphiques 
mémorisables dans les instructions 
DATA constitue l’un des principaux 
attraits du Spectrum. Mais comme 
il est fastidieux de calculer la grille 
correspondante si l’on ne dispose 
pas d’un utilitaire efficace ! 
CARADATA est un programme 
graphique très complet qui sait 
aussi jouer d’une manière 
instructive avec les lignes REM et 
les lignes DATA, entre lesquelles il 
est souvent utile d'organiser des 
échanges. 


CARADATA permet de traiter 4 caractères si- 
multanément, 

— soit sur une grille 8 x 8 que l'on peut recopier 
par rotations et symétries 

— soit sur une grille 16 x 16 avec ici encore les 


Toutes les instructions de groupe 1 sont utilisa- 
bles pour créer de nouvelles procédures. En plus 
sont utilisables : 

“R" répète n fois 

“ " fin répète 





on peut imbriquer jusqu'à 16 “répète” 


— ">" augmente N ou M 

— “<" diminue N ou M 

— "fin de la procédure 
Fonction propre à l'éditeur : 

_ | monte d'une ligne 

“J" descend d’une ligne 

“<-" monte d'une page 

“…" descend d'une page 
“edit” efface la ligne courante 
— “2” retour direct au compilateur après cor- 
rection. 


Après compliateur chaque instruction peut être 
es en appuyant sur la touche qui lui est as- 
sociée. 


Bonne logomachie 


Pierre AUBERT 





Caractères quatre à quatre 


possibilités de dessin simultané par symétrie. 
Après affectation à un caractère, les codes de 
celui-ci sont inscrits directement dans une ligne 





a 163 

E: 

C 252 

D. ese 

EE SG 

FF 163 

GG 65 

Ht+ 195 

II 66 

Sy sa 

KK 24 

LL 60 

FH 32 

B8 de 

PP 1s=nff. Un caract. € Et 

88 2=besiner t Le coder 
=Symetries et rotation 

$S d=Afrecter un caractere 

TT S=Ecrire Les Lignes DATA 

UU 6=Effacer Les Lignes” pProgr 








| 
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GRAPHIQUES 








Vous ne sauvegardez en fin de travail que les li- 
gnes DATA constitués à partir des REM précé- 
dentes. Elles pourrront ainsi, sans erreur de 
transcription, être réutilisées dans vos futurs 
programmes. 

La liste s'affiche dès chargement, à la ligne 1 qui 
servira de REM relais pour l'édition des DATA. 
La ligne 2 indique le mode d'emploi. 

Le programme se lance par RUN. Les grilles se 
tracent et le menu de la fig. 1 vous est proposé : 

Vous pouvez alors : 





ZOMIOND 
TOTMONUD 





* Afficher ou rappeler dans le quadran de votre 
choix un caractère en vue de codage, d'adjonc- 
tions ou transformations. 

+ Dessiner (fig. 2) avec les touches curseur (5, 
6, 7, 8) complétées par : 

— CAP SHIFT dont l'appui simultané provoque 
un déplacement en diagonale décalé de 45 © 
dans le sens des aiguilles d’une montre. 

— “9" (GRAPHIC) pour noiroir les déplacements 
suivants 

— “0” (GRAPHIC) pour effacer les déplace- 
ments suivants 

— “1” pour se déplacer sans écrire ni effacer 

— “T" pour terminer et retour au menu. 


Pour tracer un dessin possédant une symétrie, 
horizontale, verticale, où par rapport à un point, 
on commence par déplacer le curseur sur l'axe 
de symétrie, ou le centre de symétrie, puis la 
touche “S" et le choix de cette symétrie (centre, 
horizontale, verticale) provoqueront automati- 
quement l'affichage du dessin et de son symétri- 
Que en une seule passe. 

+ Faire des transformations à partir d'un carac- 
tère, par : 

— symétries verticales, horizontales, — rapport 
au centre, pour les 4 quadrants 

— rotations dans le sens trigo 

Cette dernière possibilité est intéressante car 
elle correspond au changement de direction 
d'un mobile donnant aussitôt son nouveau des- 
sin pour cette direction. 

+ Affecter le dessin à un caractère graphique. 

+ Editer la ligne DATA correspondant à ce ca- 
ractère. Le caractère et les codes apparaissent 
dans la ligne 1 REM relais, il faut alors : 

— l'éditer 

— Supprimer les ?, remplacer REM par DATA 

— la renuméroter pour l'inclure à sa convenance 
dans le programme. 

e Effacer les lignes inutiles pour ne conserver 
que les lignes DATA à sauvegarder. 
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REM 7777277777" A6" ,0,0, 82 
,188, 58,16,08 rs 
2 REM Ne supprimez pas La Lig 
ne 1 qui comporte REM+36+ Ette 
sers feutilisee.il faut L editer 
+Supprimer Les ? ,remplacer: REM 
Pal: DATA et La fenumeroter ide 
10 a 100 où à partir de 70@0). 
Supprimez a La fin toutes les au 
tres lignes 
108 REM mul J 
110 REH CARADATAR 
L2Q@ REM --"- 
“150 REM tracer Les caract 
eres- et ed Leurs DATA E&x## 
# 
140 REM UERE 4/84 
Pour ECTR 16 OU 48x — 
P=t-t-h-t Du ft D Del Del don Led Du ul 
150 LET REM ME 
ei$0 LET REH JOB Erraceu 
170 LET RE TRans fert 
8 EM Variables 


NEXT 
249 PLOT 198, 182: 
AU _@,-20: DRAU -20,0: DRAU 
25a PRINT, AT 7.25; PAPER 77 n 
STE 262 PAPER SAT 7,28: © 


Éte PRTUT ar Be 74085 Ts : 245 1 
“AT 12,7; "8"; AT 224; "E": ae 


né _des quadrants 
i TO 17S STEP 8: PLO 
128,0: NEXT i: REM 


“i=6e ro 192 STER 8: PROC 
: DRAU G,127: NEX RE 


iz1 TO 21: 
$ (64+ii;CHRS 


GO _SUS EF 











PRINT AT _i,0 
(14S+i)1: NEXT 





D nrenb® Iÿce 
HS--VUI-5S HG 


CTEPTE 
Hum 7 


CL ESTE 
Wu chou On 


= 
mn 
a 





s3a Te 


13 
HA EF(scement 





81: PRINT AT i, 


URN 
75e" RER sus RERansrert caractere 


dans grille 

768 FOR Y=Yd TO Yd+7: FOR X=Xd 
TO_Xd+7: 

77@ IF POINT (X,Y) VU PRINT A 


FT. une M PES ki €nRs 143 


gritle 

AT_ 6,25; 

At prealabrle 
FOR-j=8 TO 1 


1172-Brj; TH 






URN 
1800 REN AFFICHER _UN_ CARACTERE _E 
XISTANT 





3218,INPUT ‘“Caractere à afficher 





Fins 
RE INPUT “Dans quel quadrant?* 
1050 cQ SUS va 

1040 PRINT AT L,C:AS ; 
1060 LET _Us="118-V%; LET Hg="x-1 
2"; GO SUB TR: GO SUB QQ 

106@ GO TO MI 


107@ REM SUS VG Usriables suivan 
l les quadrants 


LET L=?7: LET C= 
LET L=7: LET C= 
LET, S: LET C= 
LET LET C= 








C: LET Yd=168-B#L: 
;: REM Coordonnees de deb 
Vénaiyse du caractere 


REM_SUS 
IF @6=1 OR @Q=2 THEN GO SUB 1 
IF @=5S OR @=4 THEN GO SUB 1 


RETURN 
REM lecture des 


LET 250 
STEP 256: PRINT 
LET n=n+1: NEXT 















5 Soaa 


9066 


s 





bee 


N 

8 LET n=8: 

4+C STEP ëse® RhRINT 
dis Vi LET neh#i: 


i=18432+C TO 2 
AT_n,CP;P 
NEXT il: RE 


Mectbodasasee à 


D-MORMMmPEPRHERRBE 
x 


ul 
60@ REM Dessiner -- 


2010 PRINT AT 16,4; 
Suspour diag.7 AT 
e 


*5,6,/,8+CRPS 
*é=ecrir 
racer" iAt 16,45" 
TasécminetiT 
4,8 une symetrie, 
= Pres de son 





Plac 
axe 
s=e 


@ LET L=S: LET C=19: LET 
LET Nnoir=2 
ODE _INKEYS$ 
THEN LET noir 


Cd=57 

Edzaé THEN 
cd=4S THEN 
2960 17 ANKEVa="t" 





THEN 60 TO 2e 


Sa: REMH Termine 
géo IF INKEYS="S" THEN GO SUB 2 
100 IF INKEY$<>'"" THEN GO TO 2@ 


4a 

INVERSÉE noirs 
E noir;198+C,118-L: zx 
INT_AT L1i,C1: INUERSE 
PLOT_INUERSE noir; 192# 
GO TO 2040 



















2150 PRINT AT L,C; OVER 1; INVER 
PE D à 
168’ PAUSE & 
270 PRINT AT LC; QUER 1; INUER 
SA 
160 PAUSE 5 
120 GO TO 204@ 
PAPERS: HeSUR À Us 





Faces LET ah 
THEN LET av 
THEN LET ah 


=1: RETURN 
8858 PLOT OUER 1:192+C,119-L: RE 
M MAUVE caractere temoin 





LE 





GO SUE VG: GG 
PRINT AT i, 

avec sumetrie 
HEN LET Ci=2sav- 
THEN LET Li=2+3h- 


THEN LET Li=2*ah- 
æav-C+1 











REM Transformations --- 


Ga SUS EF 
PRINT AT 17,8; "U 
vertical iAT 15 LEA 




















Ge (codes 
géses INBCY FLASH 1; "UOTRE CHOIX 
Soie Cg="t" THEN, GO TO ME 


5050 In FLASH 1;"Q@uadrant de 
deparier 





$ 

5 

5 

$ 

$ 

$ UÉ 

$ VE TR. 
dE 59-508 “re ê 6 
mt 7 REX 

RAF ation touche 






4010 INPUT “ouet auadrant7 
@<1 OR G>4 THEN GO TO 4018 
ÿ PAPER 6; “Car 


Logo PRINT AT 21,5; 
actere MA ULI 
4856 P: affectation à quelle 


=1 OR G=2 TH 


EN _L: are To 2860 
4850 LET test=15452# 

i G 7: ÊGRE USR Lé$+i 
er test: LET test=test+256: M 


édra REM Affich caractere 
SO80 BRENT ATOÇODE LS-64, 
RSSÇCOPE, Ls+7 





iLS; CH 





@ INPUT *éScont. M=menu  Uotr 
g Choix7";cg 
4108 IF C#="m" THEN GO TO 
4110 IF C$="c" THEN GO TO 800 
4120 GO TO 4090 
S@@@ REM écrire Les REM/DATA---- 
LS 


UT “auel caractere? 
iL$: _LET 2 ee H 
<41 GR _m>6$ THEN GO sai 

Sgeo LFT af=PEEK FSssS+2S8 PEER 





So4e F1 Q @ STEP -1: LET P 
£= E. ISR Lé+ii 

Sosa FOR Jj Ô 1 STEP -1: 
ÊOKE 2,C0bE Patjl: LET 3=8-1; NE 





XT 
Soea POKE 3,44: Er a= Sale) -1: NEXT 
S070 POKE 3,34: +79) : 


OKE _a-1,,im 
POKE 3-2,m: FokE a sis ler 


3-4 
5060 BEN POKE_ de @ dans _Le reste 


Lea 1 2/-54 STEP -1: F 








Les 


Lignes inut 
PRET FOUVEez SU 
Lignes du progr et n 
ue, tes DATE # sauve 


030 INPUT "iere Li 

2*iL1: PRINT 
S@4@ INPUT “dernie 
acer ?";5L2; PRINT * 
tientez..." 






€ conservec 
arder": PAU 


a effacer 


+ 
SSS9 SAVE ‘“CARADATA‘" LINE 5199 


F. QUÉRÉ 
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Quatre programmes de jeu 





ZX81 français 





Nouvel essai de francisation du ZX réussi, cette 
fois-ci en utilisant la HRG Memotech. Après 
avoir entré le programme et pressé RUN, ap- 
puyer sur la touche NEW pour vider la mémoire. 
Tout programme entré ensuite apparaîtra fran- 
cisé. Par exemple, si vous appuyez sur la touche 


THEN vous obtiendrez ALORS. 





1 REM 1234567898123 

2 REM XX ONE NON ONONEEX 

3 REM * 2X81 EN "FRANCAIS" *X 

4 REMAKE ORNE 

S REM * MICRO CLUB ORLEANS * 

6 REM * LLATY BERTRAND * 

FT REM KR ONE ONE 

8 REM 6ÿ POKE 339,CO0DE 
18 FAST 65 POKE 344,CODE 
11 POKE 16514,33 78 POKE 348,C0DE 
12 POKE 16515,0 75 POKE 349,C0DE 
13 POKE 16516,0 76 POKE 350,CODE 
14 POKE 16517,17 77 POKE 351,0 

15 POKE 16518,û 8û POKE 358,C0DE 
16 POKE 16519, 81 POKE 359,C0DE 
17 POKE 16520,1 82 POKE 368,C0DE 
18 POKE 16521, 83 POKE 361,C0DE 
13 POKE 16522,4 84 POKE 362,CO0DE 
28 POKE 16523,237 85 POKE 363,C0DE 
21 POKE 16524,176 9ù POKE 364,C0DE 
22 FOKE 16525,201 31 POKE 365,C0DE 
23 RAND USR 16514 32 POKE 366,C0DE 
39 POKE 276,C0DE "a'"| 95 POKE 367,C0DE 
31 POKE 277,0 36 POKE 368,C0DE 
35 FOKE 298,C0DE "G"| 97 POKE 369,CO0DE 
36 POKE 291,C0DE "r"| 96 POKE 370,CODE 


POKE 371,C0DE 
POKE 372,C0DE 


4û POKE 315,C0DE 
45 FOKE 318,C0DE 
46 POKE 319,C0DE POKE 373,C0DE 
47 PÜKE 329,C0DE POKE 383,C0DE 
5û POKE 327,C0DE "c" |196 POKE 384,C0DE 
51 POKE 328,CO0DE "A" |197 POKE 385,CO0DE 
52 POKE 329,C0DE "s"|188 POKE 386,C0DE 
53 POKE 339,C0DE "e"|11ù POKE 387,C0DE 
55 POKE 334,C0DE "c"|111 POKE 388,C0DE 
56 POKE 335,C0DE "H"|112 POKE 389,C0DE 
57 POKE 336,C0DE "a"1113 POKE 399,C0DE 








va" 
“pt 
“g" 
nEn 
mgn 


"a" 
“pu 
“g" 
DT 
mg" 
va" 
pu 
ua" 
"" 
ue 
ue 
up 
mg" 
“" 
DT 
“e" 
"pu 
mg" 
ugu 
ngn 
nyn 
DU 
nu 
“en 


115 
116 
117 
118 
izû 
121 
122 
123 
124 
135 


137 


147 


189 


PÜKE 
PÜKE 
PÜKE 
POKE 
POKE 
PÛKE 
POKE 
PÜKE 
POKE 
PÜKE 
PÛKE 
PÜÛKE 
PÜKE 
POKE 
PÛKE 
PÛKE 
PÜKE 
PÜKE 
PÛKE 
PÜKE 
POKE 
POKE 
PÛKE 
POKE 
PÜKkE 
POKE 
POKE 
PÜKE 
PÜKE 
PÜÛKE 
POKE 
PÛKE 
PÛKE 
POÜKE 
PÜKE 
PÔKE 
PÛKE 


391, CODE 
392, CODE 
393, CODE 
334, CODE 
395, CODE 
396, CODE 
397, CODE 
398, CODE 
399, CODE 
418, CODE 
411, CODE 
412, CODE 
413,C0DE 
414, CODE 
415,C0DE 
416; CODE 
417, CQDE 
418, CODE 
419,C0DE 
420, CODE 
421, CODE 
422, C0DE 
423, CODE 
424, CODE 
425, CODE 
426,0 

435, CODE 
438, CODE 
439, CODE 
448, CODE 
441, CODE 
442, CODE 
443, CODE 
444, CODE 
445, CODE 
446, CODE 
447, CODE 


“y 
“j" 
"p" 


“qqn 
mg" 
n pu 
nu 
“en 
“pu 
“o" 
“y" 
u pu 
ny 
nan 
uçu 
nn 
“p" 
uR" 
"g" 
“g" 
“pu 





UR 
1e" 


OT 
"de 
“Q" 
uen 
nu 
“En 
ot 
“cu 
np" 
DT 
“en 


185 
186 
187 
138 
191 
ie 
133 
1934 
2o0ù 
zu1 
ävs 
206 
207 
298 
299 
215 
216 
220 
221 
222 
223 
224 
225 
226 
227 
228 
230 
231 
232 
248 
241 
242 
243 
244 
245 
3üû 
31ù 


PÜKE 
PÜKE 
POKE 
POKE 
PÛKE 
FÜKE 
PÛKE 
PÜkE 
POKE 
PÛKE 
PÜKE 
POKkE 
PÜKE 
PÜKE 
POKE 
PÜKE 
PÜKE 
PÔKE 
PÜKE 
POKE 
PÜKE 
PÜKE 
PÜKE 
POKE 
PÛKE 
PÛKE 
POKkE 
PÛKE 
PÛKE 
PÛKE 
PÛKE 
PÛKE 
POKkE 
PÜKE 
POKE 
RAND 
SLOW 


448,CODE 
449,C0DE 


459,CODE " 


451,C0DE 
452, CODE 
4533, CODE 
454, CODE 
455,C0DE 
456,C0DE 
457,CODE 
458,CÛDE 
459,C0DE 
468,CODE 
461,C0DE 
462, C0DE 
471, CODE 
42,C0DE 
476,CÜ0DE 
477,C0DE 
478,C0DE 
4?9,C0DE 
480, CODE 
481,CQDE 
482,C0DE 
483,C0DE 
484,CODE 
498, CODE 
491,C0DE 
4392,C0DE 
590, CÜDE 
591,CODE 
592,CODE 
593,C0DE 
Sû4, CODE 
595, CODE 
USR 9346 








OT 
“En 

nm" 
“Eu 
uç" 
ug" 
my" 
pu 
npu 
mg 
“En 
mgn 
ME" 
"ç" 
“un 
un 
“in 
ME 
“pr 
up" 
“pr 
pu 
uyn 
"y" 
"D" 
uyn 
“Q" 
"y" 
pu 
uqu 
"9" 
ny" 
uç" 
“ps 


“en 


SN NE Bertrand LLATY 
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Verbes du premier groupe 
(ZX 81 16K0) 





Un petit didacticiel de conjugaison à la limite du 
pédagogique et de l'amusant et qui possède une 
structure facile à étudier et à réutiliser. 












ONJUGRISON DES VERBES 
2 BO 1 GROUPE AU PRESENT ET 
AU FUTUR... MARMRIN G. 
2e LET U=1 
28 LÉ 
S8 LET 
69 LET 
7e LET 
75 LET 
89 DIM 
65 DIN 
8@ LET = 
198 LEr ï mue 
SSsSLer. ERA ERA 
ERONSERE. 
dRS “Ez LE Re 
FRONSEREZ 1 one 
180 LET RL EN VAS UA “ L'2 
A ALLONSALLEZ VONT _UONT 
135 LET_X$="ENVERRAI ENVERRAS E 
NUERRE LENVERRE  ÉNUERRONSENVERE 
OI 
ÉTA8 LEr L$="DECONGELERCONGELER 
RÉRER FE ne ER ee cnBELER. eeb 
MAI L 
RTELER ELER HARCELER,, MARTE 
LER_ MODELER, ._PELER 
145 LET C$=" CONJUGAISON DES VER 
SES pU 1 GROUPE BU PRÉSENT OU AU 
FUTUR. CHOISISSEZ _EN REPONDANT 
POUR PRES & POUR FUTUR. 
158 LET M$="RACHETER ACHETER 
CROCHETER FURETER HALETER bé 
158 LET K$="AET ie 
168 PRINT POUR SAUVEGARDER APP 
UYER SUR UNE TOUCHE" 
178 IF INKEY$="" THEN G: 0 170 
188 SALE “CONJUGAISON 
200 LET Y=CxF-U 
219 E=Z# (D+S) 
220 FOR T=U TO LEN Cs-Y 
239 PRINT AT _E,.X:C$(I TO ZL4v) 
248 FOR Jeu TO D+sS 
2S8 NEXT 
268 NEXT I 
265 CLS 
278 PRINT AT U,D;"UVERBE DU 1 GR 
OÙPE 7° 
275 LET S$(S TO S)="E" 
289 INPUT G$ 
298 FAST 
308 LET O=LEN ©$ 
319 ir 6<C THEN GOTO 550 
S20 LET ARE MP d TO _@) 
330 IF UVS(Z O C)<>"ER" THEN GG 
TO _ see 
335 GOSUS 1400 
49 IF G>=S#D THEN LET Ug=Q@(U, 
TO _S+D) 
3s8 IF @<S#D THEN LET U$=0$+Z8$( 
U TO S+xD-@) 
360 LET G 
378 FOR 1= 
399 LET NID 
398 NEXT_ I 
498 PRINT AT S+U,F; "PRESENT /P,F 
UTUR/F" 
418 SLOU 
422 INPUT Re 
430 IF R$= THEN GOTO 575 
420 IF R#="P" THEN GOTO 590 
450 GOTO 400 
Saa SLOU 
685 PRINT AT S+*D,X; "CE N EST PAR 
S_UN UVERBE DU _ 1 GROUPE 
s18 FOR I=ÙU TO F#D 
S1S NEXT I 
517 CLS 
52e GOTo 27. 
550 SLoUu 
SS PRINT AT S#D,X; "IMPOSSIBLE 
DE CONTINUER AVEC ";:90$ 
560 FOR I=ÙU TO F#D 


565 NEXT I 

S: eLs 

Sze G60To 270 

588 LET U$="FUTUR" 
565 GOTO 595 


S90 LET_U#="PRESENT" 
595 FAST 
600 IF OG$=" ALLER" THEN GOTO 13S 


SeS.Er S$S "ENVOYER" AND G=U THE 
N_GOTO 1009 

642,177 VS(U TO S)="EL" THEN GOT 
615 IF US$(U TO S)="ET" THEN GOT 
620 IF U$(U TO S)="O0Y" OR U#(U 
O S)="UY" THEN GOTO 110 

625 IF Gé FU S)="6G" AND G=Xx T 
LETUYS=OS (U TO 0-5) 

5 94! 





D 
ag 
J VORUBRRQO 
-SAGASAOUNS 


40 _0G0O00MHEID DUIINIINIINININNNIANANRARAO 
A; 


DH 
æ 
oO 
[= 
LI 
2 
m 
o 
Li 
4 
F 
m 
Z 
Lo] 
m 
LI 
Li 
2 
H 


EEE 
0027! 


à 


NOR ANE RSS 00G 
3 


SUGASEUNSUTUASN! 
LEE TU L 


OM 12Zr 1ZE DZ 1OOHI 


F2 


U TO LEN E$-(F4+U) STE 
US=L$(I TO I+F+ÙU) THEN G 


Li 


ü 
97 OM 


9 
a 


Z 
Lil 
x 
3 


< 
LET J$=N$(S TO 5) 





52 
C1 
Dx 
BS 
0 
10 
15 
30 GOSUB 70 
25 GOSUB 550 
58 GOTO 630 
5Q LET N(D)=Xx 
SS LET N(D+U) =Xx 
6Q RETURN 
P°20LFOR IsU TO LEN H#-(F4U) STE 
GS IF US=M$(I TO I+F+U) THEN G 
oTo 65 
919 NEXT I 
815 LET yS=Nstz TO 2) 
920 GOSUB 70 
925 GOSUB 650 
952 GOTO 650 
S48 PRINT “CONJUGAISON DE 
“AU “iÙs 
945 RÉTURN 
960 IF N(I)=X THEN PRINT AT F+I 
0j8ste-C TO 5" “AUSSTRE-C TO 
SSS IF N(I)=U THEN PRINT AT F+#I 
Déssieec TO Ed; “US AGIIII TEE 
é-6 TO _E) 
968 RETURN 
970 IF N(I)=X THEN PRINT AT F+I 
DiSstE-C TO En; " “URFSCE-C TO 
975 IF N(I)=U THEN PRINT AT F+7 
gDESSEEC TO rit US ASILI:FEÀ 
É-G TO E) 
969 RETU 
1008 GosU: 
1905 FOR I 
1010 LET E 
1015 LET Ü 
3080 PRINT #D:S$(E-C TO 
Joès NEX? 
1258 GOTO 
1108 LET 
1105 Gosu 
1110 LET 
1115 LET 
1120 LET Z) 
1125 6070 
1208 LET 
1205 Gosul 
1218 Gosu 
1215 GOTO 
1580 Gosui 
1505 FOR 
1310 LET 
1330 1.0 AT F4. 
SRLE-Ce To {E-c To E) 
1525 ir G AT F+#1,D; 
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JEUX 











S$(E-C TO E); “3I$(U-D TO 4) 
1390 NEXT I 

1340 GOTO 686 

1400 FOR I=U T 

14058 IF @$(U TO _U)=K$(I TO I) TH 
EN LET SP Te TO S)=" 

1419 NI I 

1415 RETURN 





VERBE OÙ 1 GROUPE 7 


SENT /P , FUTUR / 
conuuenrSBN DE MANGER RU PRESENT 


JE MANGE 

TU MANGES 
IL ANGE 
ELLE MANGE 
NOUS  MANGEONS 
VOUS HONGEZ 


s MANGENT 
ELLES MANGENT 


NOUVEAU VERBE 7_Y/N 
POUR RECOMMENCER FAIRE ESS BE 








Georges MARMAIN 








Spectrométéo 
(Spectrum 48K) 





Très joli programme parfaitement de saison qui 
donne des prévisions métrorologiques pour une 
échéance de 24 heures en se basant sur une 
méthode due à l'Abbé MOREUX et qui donne 
des résultats bons à 80 %, le tout avec beau- 
coup de couleur et d'humour. 


10 REM RH NM ERR ER MRRE RENE 
SPECTROMETE. 
Lee TRE RRRERE 






EM HHHEYERREX 
%  DATAS Di 
LELTSENTI TI 





pan. sas 
AGrouRe 


POKE 23609,20 
L-1:1:1:] 





MPS* 


NTE 
OKE 23658 FI 
u=8e 86 ro 
sÛB 9997 
RÈM xXxéteisssereerrrnterex 
INTRODUCT ION # 
CPPPEPENNRE EEE 


78 PRINT “Pour vos previsions 
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de 
€ 
(J 
æ 


Câün avHo 
Et 


aCRoCx 
SH 









eu 3 


CET 
DOC pnU 
GC-r6007m- 


CT 


= np 


CTI 


s IN 
> RORB 20 


“No correspondant 7"; 
Go TO 150, 
vent 





£ C4 02 
MhEkE<R LT LbAHZhQ RE 


1 OR V>6 THEN 
NT AT 21,1 

GO SUB 9997. 
V=(v=1)+2x(v=2 
R V=25) +47 (V=6)+5#tv=7 OR 


OR vV=3) + 


où 






uelle est La sa 
PRINT PRINT. ser 





3 


: PRINT INT e- 

“: PRINT :_PRI PPS: 

INT : PRINT “4-->PRINTE 
“NO correspondant 7"; 

£1 OR S>4 THEN GO TO 17e 

INT AT 18,10; "Saison 

Go SUB 9397 

STORE 221080 + +100 +v +10 

ÉRT F4B 9; "SPECTROMETED 

CÉERI SET OT S 2 
PRINT NT : PRINT 


M TIHin 
RDC, 
JARD 
:0C 


L 





CTI 


* 
PRII 


PRINT US$: PRII 
FLASH 1; PRapez! 


AND INKEYS$ «> 
THEN PRINT AT 





927 998% PS 
HH 


3 





HODOUY MAS 


‘son 
ke 470 


masse | 





‘autre prev £ 
BE Mopi ter Le 





pProgr 
588" 2e" Snkeysc"1 OR INKEYS»>"0" 
SHEN Go 10 384 , 
360 IF INKEYS THEN RUN 


370 1r INKEr RS ENUS9 TO 42 

380 CLS : NT “a RÉUBTR : © 

PAUSE 50: CLS : 

394 REM 

995 REM +YH#K#KEEEEEEAERERSELEE 
4DATAS DES PREUISIONS 
ÉRERREREFEREEEREREERE 











Hbbihisle inter 
* 
RRRRRRÉRRÉERERERREURRE EE 


1119 DATA 
“"Journees 


20 DATA 
nuits 

58 D: 

e 


ou assez beau. 
rraîthes 


“Beau 
chaudes ,nuits 


“Journees chau 


Îs orages poss 
à Le jouc,chau 





auou,tres beau." 


ou ; 
:"Éhaud dans L 
frais La nui 





(e] 


1150 vAtA fBéaue ki 
journee ,assez 





oderement ny 
eree le jour 





BUUTAUON DVD: 
QACMM VIE + 





anOtTuuZzuO: 
£tier 





El Le 
Es Ettuotite 
G -A0308uQ v0 = 
x D à ® 
03-78-19 9 
DER EET PES 
ADENVU A OU VU 


De QGUD TU Que: 


> ww 


ondees pos 
e 
e 
mn 
b 
a 
Li 


e 
gs 
ê 
0 





auût 
qd Tu 4 un 








RATNTUT- UT To 
Hs HODUE LE SES 2 

TT 0% ut 0T« 0 
0>00nTOu 


fe) 
9-942“8: QuSO1Ou®S 
00 9200 ONG 30 
DANULIU QaN 20m 
udobedu unie 





“,“Temps frai 
ues de neige 












cu 
« du “U 
n € xo 
dN mm 2€ … 
Nas en am à # 
BOULE de De mpas «LAN @ x 
4 LEU VC MC JATCUWE-UU 2 
MHQU> CO JU —EÆCOMPWMIO LU + > WOO + * RUDU 
Tuo-T Os Z> AvOsnt+ITs * *DDn 
EVRRE US, à Co * #00 
FIM DEEE T 
Tue CC Ce œ 
#2E Eu Eu bu 
sut Œ € Teu 
Ga: 00 Gu Ou 834 
U+ uw: _w ès 
SoncS O0 -On 92 
PETEPCN EL TERELT] CR 
UC D M3 0m0N00— + au CLIS 
nano mi aTU AUS: Aa mo> LETT 
a uw: 
a w: 
n au 
k au 
£ 
Er 
à Ce 
. a 
» Nm: ge 
€ «3e 
n PT] 
> n «v£u 
ÉD L'eTshe) 
+ “T4 à 3205 
n M M3 29m +2 
ETT] ou: € 
a M“ # © mes 
“ 43 2m024 
2 “ “ac m-003 
äS —u-ù RTE T1 
> Qun> # Ho DTud 
“EÙ 2 M KI TE 
nu v © DLE) Cr 
ToTuT TT, CU œ ŒvT vTc-T 
2 EU 2È2 ak :H: Eu LE m1 ak 
E-ESt Coïe Eat20 n: Æs Wu £ ac v 
#û GnG0: OLOUAQ aûnûs LE ATIOUCON-G2 
g ® Un  : 3 QE uv _w 2E +4 ve mn 
LOUSuOc ASS 29--On08 DO ST OrrOun«DL 
mO>+ONSUAMUCENcCES DOM DS ALMULLOMIdU 
HNNG DUT HYIUII DS AU-AOUAdTC 
4 duodod #45 Zdmdoud Qi dE A: ŒN 

















L 


S 11 PREMIERS 


NUMEROS »: 








BON DE COMMANDE 


5, place du Colonel-Fabien - 75491 Paris Cedex 10). 


(à retourner à LIST - Service Numéros - 


Prénom 








Adresse 





Ville 


LES 





Je désire recevoir la collection complète des 11 premiers 
numéros de LIST au prix de 109F. Je joins mon règlement indis- 


pensable à l'ordre de LIST. 


Code Postal 


(Offre valable pour la France métropolitaine). 
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Othello 





Un logiciel tout Basic évidemment un peu lent, 
mais qui en fait beaucoup pour peu de lignes. 
L'ordinateur demande d'abord le nom du joueur 
(A ou B). 

Si l'on désire jouer contre l'ordinateur, entrer ZX 
en premier. On entre les coordonnées de la case 
choisie sous la forme A4 par ex. 

Pour passer son tour faire « 00 ». 


THEN GOTO 220 
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THEN RETURN 
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Quill de Gilsoft 


« The Quill » est un logiciel utilitaire 
pour ZX SPECTRUM qui permet à 
toute personne non informaticienne 
d'écrire des jeux d'aventure en 
évitant la programmation pour se 
concentrer sur l'intrigue directrice 
du jeu. 


Il suffit à l'utilisateur de créer la base de donnée 
relative à son aventure : « The Quill » interprète 
ensuite cette base de données et fournit, après 
mise au point, un jeu en langage-machine qui 
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s'exécute pratiquement à la vitesse d’un pro- 
gramme directement écrit en assembleur. Le 
Joueur utilisera ce programme en tapant des or- 
dres de un où deux mots, comme dans les clas- 
siques du genre. 





QUILL AVENTURE ! 





La rédaction de cette base peut être laborieuse : 
n'allez pas croire qu'en un quart d'heure, vous 





réléguerez aux oubliettes Scott Adams, ce pion- 
nier des auteurs de jeux d'aventures, qui dut 
écrire son propre interpréteur de base de don- 
nées. Il faut donc fournir un certain travail. La 
notice de 60 pages indique clairement qu'une 
phase d'apprentissage est nécessaire. L'exem- 
ple fourni pour nous familiariser avec les nom- 
breuses fonctions de « The Quill » est à cet 
égard significatif la rédaction d'une mini- 
aventure (6 pièces, 10 objets environ) nécessite 
un nombre impressionnant de frappes. 

En effet, la base de données se subdivise en ta- 
bles, sélectionnés depuis le menu principal, et 
accessibles via un éditeur (cet éditeur est en fait 
l'éditeur de lignes du Basic, ce qui ne dépassera 
pas). 


Aventurez-vous 
dans les tables 





Les différentes tables sont : 


— la table des textes, dans laquelle on entre le 
texte correspondant à la description de chaque 
emplacement (ou pièce) de l'aventure (ex : je 
suis dans un couloir, il y a une porte à l'Est et 
une autre au Nord; 


— la table des mouvements, dans laquelle on 
spécifie, pour chaque pièce, les mouvements 
possibles (E, W, N, S, NE, SW, U, D, etc...) et les 
pièces auxquelles aboutissent ces directions, 
sous la forme TO numéro de pièce ; 


— la table des objets, qui contient le numéro de 
chaque objet, son nom, et le numéro de la pièce 
où il se trouve au début de l'aventure. 


— la table du vocabulaire, contenant les mots 
acceptés seuls où par paires, ainsi que leurs sy- 
nonymes (deux mots ayant même numéro sont 
Synonymes pour « The Quill »). Cette table 
contient déjà une trentaine de mots : les huits 
directions, UP, DOWN, et quelques commandes 
courantes telles que GET, DROP, INVENTORY, 
etc. 


— la table des événements qui contient les effets 
des commandes tapées par le joueur. A cet ef- 
fet, le programmeur dispose de 37 « actions » 
comme BÉEP (son), MESSAGE (affichage d'un 
texte), GOTO (déplacement), etc., dont l'exécu- 
tion est réglée par 16 conditions comme AT (ob- 
jet présent dans la salle courante ou non), CAR- 
RIED (objet porté ou non), CHANGE 
(événement aléatoire), ZERO (variable nulle, cf 
infra), etc. Chaque événement se rapporte 
ainsi à un ou deux mots spécifiés dans cette ta- 
ble, selon les conditions voulues. Exemple : 
COUPER CORDE ne marche que si l'on porte le 
couteau et si l’on se trouve en présence de la 
corde, et provoque le remplacement (action 
SWAP) de l'objet « CORDE » par l'objet 
« CORDE COUPEE » ; 


— la table des états, qui contient également des 
conditions et les actions qui en découlent, selon 
la même syntaxe que pour la table précédente, 
mais les tests sont cette fois indépendants des 
ordres tapés par le joueur, et sont effectués sys- 
tématiquement : l'entrée du joueur dans la 
salle X, par exemple, provoque dans 45 % des 
cas l’apparition d'un gaz toxique, auquel le 
joueur succombe au bout de deux tours s’il n'a 
pas mis le masque à gaz; 





le programmeur dispose de 
37 « actions » 
dont l'exécution est réglée par 
16 conditions 





— la table mot-objet, enfin, permet de rendre au- 
tomatiques les actions PRENDRE, LAISSER, 
METTRE et ENLEVER sur les objets les plus 
courants : cela évite au programmeur de remplir 
la table des événements avec les nombreuses 
combinaisons entre ces quatre mots et les ob- 
jets les plus courants, ce qui est un gain de 
temps et de mémoire fort appréciable. Seuls res- 
tent alors à expliciter les cas particuliers (exem- 
ple : PRENDRE LAPIN n'est possible que si l'on 
a auparavant lesté le véloce animal d'une bonne 
décharge de plombs de chasse..). 


Pour bâtir son jeu, le programmeur dispose de 
33 variables (numérotées de 0 à 32), représen- 
tées par des octets, donc variant entre O et 255, 
dont plusieurs sont automatiquement traitées 
lors du déroulement de l'aventure par l'interpré- 
teur Quill : certaines sont décrémentées à cha- 
que tour, d'autres décrémentées à chaque tour 
passé dans l'obscurité, etc. Les créateurs de 
« The Quill » ont mis l'accent sur les problèmes 
d'éclairage et de source de lumière rencontrées 
par les joueurs. Le programmeur a ainsi à sa dis- 
position une variable dont l'état reflète la pré- 
sence ou l'absence de lumière : s’il fait sombre, 
la demande de description de la pièce courante 
est automatiquement refusée. De plus, l'objet 
numéro 0 est supposé par l'interprêteur être une 
source de lumière. cette sophistication axée sur 
un seul type de problèmes semble un peu inutile, 
mais il faut cependant reconnaître qu'à défaut 
d'être originales, ces difficultés se rencontrent 
dans un grand nombre de programmes d’aven- 
tures, et sont le B-A-BA de tout joueur «sé- 
rieux ». 





il est possible de créer avec 
« The Quill » une aventure 
100 % en français ! 





On peut d'autre part opérer des additions, sous- 
tractions et comparaisons sur toutes ces varia- 
bles. Notons que les tours écoulés sont compta- 
bilisés par les variables 31 et 32 qui forment un 
mot de 16 bits. 
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ESSAI LOGICIEL 


La sauvegarde sur magnéto d'une partie en 
cours et sa restitution sont prévues, ce qui est 
très appréciable pour le joueur et donc pour le 
programmeur. 


De plus, il est possible de créer avec « The 
Quill » une aventure 100 % en français ! En effet, 
non seulement rien n'empêche de créer un vo- 
cabulaire entièrement hexagonal (puisque l'on 
peut définir OUEST et HAUT comme synonoy- 
mes des comandes WEST et UP, qui font partie 
comme les autres directions des mots directe- 
ment excéutées par l'interprêteur), mais il est 
aussi possible de redéfinir les messages de l'in- 
terpréteur. 


Si d'aventure vous avez encore 
envie de jouer 





On voit difficilement ce qui pousserait encore le 
programmeur de jeux d'aventure à utiliser l'as- 
sembleur (ou le Basic, pouah !) pour livrer ses 
créations en pâture aux amateurs du genre. Le 
succès de « The Quill » a été énorme Outre- 
Manche, et rares sont critiques concernant la 
réalisation technique d'une « Quilled Adven- 





Un mot sur la notice, qui ferait pâlir d'envie bien 
des utilitaires réputés « sérieux » : non seulement 
elle est très pédagogique, mais elle s'offre en 
plus le luxe d'être archi-complète ! La première 
partie permet de se familiariser avec « The 
Quill », tandis que la seconde, est plus techni- 
que, et contient notamment un organigramme 
de l'interprêteur, levant toute ambiguité sur la 
priorité des actions dans les diverses tables. La 
description de la base de données « compilée » 
(prête à être vendue sous forme de programme 
indépendant) est également fournie. Voilà se qui 
s'appelle être complet. 
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ture », tant il est vrai que celle-ci peut facilement 
être irréprochable (en particulier exemple de 
« Bougs ») moyennant un minimum de soins. La 
facilité de la réalisation permet au programmeur 
de libérer son potentiel créatif pour le fignolage 
d'intrigues savoureuses, sans se perdre dans les 
méandres de l'assembleur. Un must pour les 
« fanas ». 


Frédéric MORA 
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INTERFACE 


POUR ZX 81 ET TIMEX 


Clavier professionnel 

Interface disquettes et lecteur 5" 1/4 
Extensions de mémoire 16,32 et 64 K 
Carte d'inversion vidéo 

Carte génératrice de sons 
Synthétiseur vocal 

Générateur de caractères graphiques 
Crayon optique 

Prolongateur souple de bus 

Filtre d'enregistrement 

Interface pour poignée de jeu 

Carte génératrice 16 couleurs 

Carte auto répétition 

Carte 8 entrées analogiques 

Carte entrées/sorties 
Programmateur d'Eprom 

Carte Eprom 

Beep clavier 

Carte mère 

Carte proto. 


clavier Pro Spectrum 950.- F. 


ET ENFIN LE Q.L. ! 


30, rue Condorcet - 75009 PARIS 
Téléphone : (1) 285.12.34 


clavier Pro ZX 81 770.-F. 


POUR ZX SPECTRUM 


Clavier professionnel 
Interface disquettes et lecteur 5” 1/4 
Interface ZX 1 
Lecteur de micro disquette 
Micro disquettes pour micro drive en stock 
Extension de mémoire externe 16/48 K 
Interface type Kempston pour joystick 
Interface programmable pour joystick 
Amplificateur de son réglable 
jusqu'à X 10 
Synthétiseur vocal 
Modulateur noir et blanc 
Interface mixte Centronics/RS 232 
Interface Péritel 
Crayon optique 
Carte 8 entrées analogiques 
Carte entrée/sortie 
programmateur d'Eprom 
Carte Eprom 

- Raccordement pour moniteur 
monochrome 

- Prolongateur souple de bus 


TRES GRAND CHOIX DE LOGICIELS UTILITAIRES ET LUDIQUES (IMPORTATION DIRECTE) 
IMPRIMANTES : SEIKOSHA - EPSON - STAR - MANNESMANN TALLY 
MONITEURS MONOCHROMES ET COULEURS : ZENITH - PHILIPS - TAXAN - BMC 


CATALOGUE GENERAL ET TARIFS : 10.-F. 
(remboursable à la première commande) 


NOM 





TELEVISION — LOCATION 


- POSTES SECAM AVEC SORTIE PERITEL 
- POSTES MULTISTANDARDS PAL SECAM 


COMPATIBLES MICRO - ORDINATEURS 


7 LOCATELE 


PROMO eu eue ci melon et 


ADRSSE nie US ve NS ES Et 2721 











QLRAM 

Extensions mémoire 

64 K - Réf. hd 96 - 1400F 
128 K - Réf. ha 99 - 1 900 F 
256 K - Réf. hd 97 - 2750 F 
S12K - Réf. hd 98 - 4300 F 


INTERFACE DISC DRIVE QL 


Connectez n'importe quel lecteur de disquette 3, 5 ou 5114 de pouces grâce 







à cette interface. Peu ‘employer avec des lecteurs simple ou double ace, CREDIT 
simple ou double densité Aou pistes. Supporte de 178kà 1 Mmégancels | LOGICIELS QL [ 
Ré. hd 99 - 2050 F ASSEMBLER : RL su 47-650F 4 À 21 MOIS 










































DESASSEMBLER : Ré!. su 48 - 560 F 
TOOLKIT - Réf. su 4 170F + de 1000 F d'achats 
FORTH - Réf. su 46. 650 F sur tous les articles 
PASCAL - Ré! su 45 - 850F 128 K RAM extensible à 640 K + Livré avec 
QL SPAITE - Ré, su 56 480F +32bis #4 logiciels, 1 cordon Péritel 
USP. Réf su9: 860 + 2microdrves, 2 sorties RS 232 notce en français 
PRET nee BCPL- Ré! su 4 850F + 2 sorties joysick AZERTY - Réf hd 18 6950 F 
le La ROM de BRIDGE 11: él. sg 7-350F + Extension RAM QWERTY: Réf hd 10 5580 F 
EN FRANÇAIS ECHECS - Réf. sg 86 - 350 F 
complet, listé et com- OL SCREEN - copie écran sur toutes imprimantes N. & B. ou couleur 
rent ge à Âge de encens ru Ré su 18907 
Le ea duree QL MINITEL. 
cons. 
Dose sens Transfomez vote QL en Saneur ré 
Au ngage assembleur du 6 ED us ce 1e QL en Same qrce 
4 Ko de routine étudiées] Tous les QL CONNECTION à ss Pis 
res Qu QL en ol, de che nique avec {out les banques de don 
3 maugorhes ms à Due STD rs HSE be ù ac Late 8 ou 
unique pour user les potentaités É à devenez barque de données à votre 
excepionnelles de vor ordinateur MODULATEUR UHF N. & B.- Réf. hd 72 - 220 F Vour, Utilise l'écran et le modem du 
ADAPTATEUR JOYSTICK - Réf. hu 44 - 79F Minitel 
Ré hb4S. 195F CABLE RS 232 - Ré. hu 43 - 195 F Réf. hd 20 850F 
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SPECTRUM ORIC 
Qu ATMOS 
ZX 81 CBM 64 
DRAGON 32 DE NOUVEAUX LOGICIELS, ACCESSOIRES, POUR VOTRE ORDINATEUR AMSTRAD 
SPECTAUM CONNECTION DEAN PUS PEL BD 20e 1 cs 
SPECTRUM PLUS PAL - Réf. hd 08 - 1 660 F 
SPECTRUM 48 K PAL et UHF N. & 8.» Rf. hd 08 - 1580 
PACK MICRODAIE ve 4 agi Tratement et, gestion ir, 
création jeux, Ant Attack - Ré, hd 28 - 1 650 F 
ZX MICRODRIVE - Rél. hd 29 - 40 F 
TRANS EXPRESS INTERFACE ZX. Ré. hd 30 - 895 F 


Nourll version. La Rolls des logiciels Spectrum iltairs. Permet de trans: MERE pr er RE 


férer les programmes Basic ou Langage Machine de Cassette à Microdrive 

Microdrive à Microdrve- Disquette à Disques -Waterdrive (ROTRONICS) 
4 Waferdrive - Cassette à Disquette - Cassette à Waferdve. Donne les noms 
du programme, la longueur en tels, l'adresse du début (Langage Machine) 
ou igne de lancement automatique (sic effectue un ver et beaucoup 


WHITE LIGHTNING 

Un Hbuleux programme utilitaire qui 
sans connaissance prière du Lan 
gage Machine, vous permet décrire 






























































d'autres super possibilités. Clavier Spectrum + -hd 83-440 Rallonge Centronies - hu 35 -185F fac fe n 
Conditionnement en cassette: su 53 195 F Cave Pro 431650 Connie Merde hu 3585 F Lee rerr 
en microdisquette su 54 - 250 F Style lumineu he 47-385 F Quiekahot Lg 02 40F te sans payer les rot de Copyright 
en cartouche ROTRONICS - 240 F Synthétiseur paroles - hd 1- 485F Trackball « souris» hg 3 375 F qui sont laissés libres par les conceg 
Synthétiseur sons 5 495F Manette jeux nrarouge-hg 450 fers de ce logiciel qui comprend: 80 
KWIKLOAD Inter, Cantronies et RS 232 - hd 21 commandes supplémentaires, 255 gra- 
Vitesse de chargement So Ant manette + comm, ag 11 Bhiues ia, enctiomement de 
4500 bauds au lieu de 1 200. Convertissez la majorité des programmes du ASF 2 programmes à a lois FORTH Intégré, 
commerce ou les vôtres avec le logiciel KWIKLOAD et, une fois modifiés, Câble Centronies-hd 21, hu 51-189F Inter. poignée progr. - hg 7 - 400 F combinaison de FORTH, BASIC. Lan- 
ils se chargeront avec un LOAD normal à une vitesse 3 fois plus rapide. Con Cible RS 232pour hd 21-hu52-159F  Conn, souple d'interface: hu 8 187F gage Machine dans un même. pro 
vert le Basic ou Langage Machine, pas de matériel supplémentaire à bran. | palonge Péritel hu 34-175F — Imprim, GPSOS-h42. 1850F gramme. 16 graphiques prédéfinis - 
cher. lise un lecteur de KT stendard. progremme de dénonstralion 
SPECTRUM - Réf. su 17-135 F Spectrum 48 K- su 12: 250F 
c _ > LIVRES SPECTRUM nee ane posée ce 
logiciel utltare. Prenez un pro- 
ren rl gramme BASIC ajoutez BLAST. 
BON DE COMMANDE A ENVOYER À LOGISOFT EE Appuyez sur a louche CE ue. 
Vente par correspondance, en magasin, par téléphone. Ré hd 10-99F ques secondes votre programme est 
39, rue de Tunis - B.P. 2392 - 31086 TOULOUSE CEDEX - TEL 61.21.49.55 SP HARDWARE MANUAL compllé en Langage Machine et 
LENS rune plie pus BLAST 
perormant el, si vous voulez les 
REF. TR OM CRODRINE fire édit, les ris d'auteurs de 
EI 20 BEST PROGRAUS ce logiciel sont laissés libres de tout 
Réf hè 14-88F Gopirigt 
VOTRE MICRO EN TOUTES LETTRES. 40 BEST MIC Routines 
AT, ICIELS ET À IRES :20F ['Pamicipation aux Ré. 
Re Ar Rs qui ii 
Fe moins de 8 #9 él su St - 315 F Spectrum. 
Plus de 200F 
Prénom dacras | GRATUIT 
Port recommandé 
Rue 





CATALOGUE LOGICIELS ET ACCESSOIRES 


PRIX TOTAL La référence on microlnformatique 


CP. 

























Signature _- Validité [I chèque bancaire [I crédit : dossier 
D GCP par retour 2 320 de garantie te 
2 contre du courrier CÉATOTS dns supplémentaie 'envi à la commande pour moins de 5 kg 
remboursement carte bleue 2 : Recommandé, à partir de 200 F d'achat 
CLONE TLLETIL CT 9 rédit de 4 à 21 mois 
mmandes 1lphonques 24h sur 24 h 
EE dy} een En Senice aprés-rente assuré 





























Four sous vo problèmes. 

























SLOMO s SUPERCODE Il! 

« Gelez» ou ralentissez l'action de a ERP 35 rouies en Lavage machine 
os jeux prétérés, Avec cette inter. ireclement exploläbles peuvent 
face polgnée compatible Kemps- SUPERCODE être implantées dans tous vos pro 


grammes Basic ou Langage 
Machine. 

Grdce au « menu » de ce logiciel 
Vous pourrez sélectionner et Sauve 
garder la routine de votre choix, Des 
ossbliés imttendues  oent à 
vous. Pour machine 16 ou 48 K. 
Nolce en française. 


ton/Quickshot |, vous pourez ex 
miner à loisir toutes les phases de 
Vos logiciels d'action ou d'aventure 
en arrétant le temps. Connecteur 
arrière, 











Spectrum : Ré hg 1 - ASF 
Amstrad Ré! hg 6-245F 








SP 18148 K - Réf, su 14-215 F 





CODE SLICER CENTRONICS/RS 232 

Vous permet d'entrer dans Interice à deux standards, compas 

r'impore quel programme Basle ou Abe toutes imprimantes. 

Gode Machine enregistré en vitesse Fonctions: LPAINT, LLIST, COPY. 

normale ou Turbo Load à n'importe Pas de logiciel supplémentaire, 

quelle adresse (16.284 à 85538, de Copie en couleur au À. & . rate 

Bear, le ansérer à une autre CODE SLICER | “ion code compattie 

adresse, re le Header, copier, etc. ZX LPRINT HI 
Pour plates avertis oroes ox servi 


COTE 


Spectrum : Réf. hd 21 560 F 
Cible RS 232 RL. hu 52 - 189 F 
Spectrum Ré. su 18: t70F Câble Centrones- Réf. hu5t 188 F 


ASTRONOMER 


Un Planetarium pour qui veut tout 
connaitre sur notre galaxie : vue du 
ciel de n'importe quel endroit de la 
planète, traçage des constellations, 
vue de notre système solaire, phase 
de lalune, plus de À 000étoles mon: QL DIGITALISEUR 
frées, comètes, astéroides compa 

tible Imprimante. 


QL DIGITALISEUR 

Coupés avec une caméra vidéo PAL 
au SECAM, cefte carte vous permet 
de numériser des Images en 
256 x 258 pixels en N. & E. et 
256 x 256 en 8 couleurs. 4 fonc: 
tions Basic supplémentaires en 
gèrent le fonctionnement 


Spectrum 48K - Réf, se 1 160F él, hd 58 3 700 F 





QL MAKING MOST 

Un guide pratique pour programmer 
en SUPER BASIC destiné aux ébur 
Lants et aux plus expérimentés 
incluant plus de 100 programmes 
ulitaires, domestiques, graphi 
ques, scientifiques, Description des 
commandes essentiels pour déve 
lopper Vos logiciels. 





192 pages Réf, hd 19- 145 F 
4 SLOT è 


Myeousamaisranché un nouveau périphérique dans vo Spstun 
GE Vo anarcor qu ou ne pou or Ut à 
SLOT plus de problème de connection C'est un connecteur à double sortie 
compatible Spectrum, Spectrum +, 2X1, 2X2. 

Rél hd 18-145 F 




















AMSTRAD CPC 664 Couleur + Réf. hd 15 
CPS 464 Monochrome 2990F.  5SS0F 
Lecteur de disquettes intégré 

PAU 28 CPC A4 Couleur 4490 Ghana" RéhuaT-TÈF-par 
2 NOUVEAU 10-7007 
GPC 664 Monochrome - Ré. hd 14 
A40F 

É- 











SPECTRUM DISC DRIVE 
LE TOUT EN UN 





Le disc drive pour Spectrum arrivé à maturité Format 3, pouces 40 pistes - Double densité Alimentation incorporée, commune à l'ordinateur inter. 
rupleur d'alimentation commun) Imterface poignée de jeux au standard Kempston - Bus d'extension pour vos autres accessoires qui restent compati 
es {saut la 21: ROM et RAM internes - Utilise les mots cles de la ZX: FORMAT, CAT, CLOSE, etc, Interface parallèle CENTRONICS inclue 
Accès diet aux données (pas dans la forme séquentielle du Mictodriv) 

Discovery À - 178 K formatés - Ré, hd 11 - 3 250 F 

Nota: TRANS-EXPRESS, vendu séparéement, est spécialisé notamment pour le transfert des programmes du particulier ou du commerce de K7 à dis- 
quette Discovery. 











OPÉRATION 


OPERATION | ün crus pou io magnéo- 


phone. Ce logiciel conti es var: 
tions de vitesse, l'azimutage de la 
Bt de lecture, les erfeurs de pistes, 
nefoi les êtes lctenr, les déma- 
gnélise, Contrôle des résultats à 
l'écran — livré avec un tournevis, 





CARETAKER 


Spectrum - Réf. su 7 - 150 F 


FOURTH PROTOCOL 


Elu ju de l'année en Grande- 
Bretagne tiré du ivre de Forsyih, ce 
logiciel d'aventure vous fera vire 
des moments intenses et oublier 
pour un moment programmation 
Un scénario carré, un graphisme 
superbe et une bombe atomique à 
désamorcer. 


Spectrum - Réf. sg 4195 F 





SPECTRUM MACHINE 
LANGUAGE 


Destiné à ceux qui n'ont aucune 
idée de ce qu'est le Langage 
Machine. Le microprocesseur 230, 
la numérotation en binaire et hexa- 
décimale, les registres, tout est 
expliqué en détals et chaque 
démonstration se termine par un 
résumé, des exemples et des 
exercices 


150 pages Réf. hb 13-110 F 


QL SUPER SPRITE 


Le logiciel que vous attendiez pour 
votre QL. Créez tous les efets sp 
aux des jeux d'arcade, d'aventure 
et de Simulation pour les intégrer 
dans VOS propres programmes, 
Compilteur intégré ne nécessitant 
pas à onragncs du ange 
machine 68 000. Si vous voulez taire 
éditer le programme réalisé avec QL 
SPRITE, les concepteurs de ce logi- 
cie! laissent les droits de copyright 
Nbre OUS 'aurz AUCUNE TOY 
ties à leur verser. 


Réf, su 56 - 480 F 





MUSIC TYPEWRITER 
Urrste com pour our se CODE 
de 18 masque. Réalisé par des must 

ciens professlonels, es a 
lotéble mène sans rien conne à 
là muslque. Vous pouvez Si composa, 
sol epfoduireun morceau d'aprés ue 
periion el le note s'insctont Sur 
un portée musicale copible ur Impr 
manle ou Sautgérdabe sur caselle 
Livré avec un céche (pes pour SP 4] 
reproduisant le claver d'un plane 
Bÿtme de 24 à 198, 6 octves.Métro- 
rome 23 à 26, Mesures: 254 Core 
on d'écriur. Edo 

Spectrum 48 K- RÉ! 582-195 F 














ZX 1 ROM 

DISASSEMBLY 

Un Ire pour tout connaître du 
désassemblage de la ROM de 
lines DCI 

Listing de la ROM avec des exem 

sde programmes tale, un ZX 1 ROM 
assembleur, un chargeur Basic, 


as diférences des DISASSEMBLY 











Réf hb3- 168F 
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FORDIMATEUR 
INDIVIDUEL 


LA RÉFÉRENCE EN 
LES SECRETS DU LOGICIEL RÉUSSI 


DES IDEES EN C:: 


DATER NTI, 


7: 

pris 
IR CHOI 

INDI ne 


À RÉFÉRENCE EN MICRO-INFO 


vo. 
PROLITE 


UNE Ma 
UaIqe 
BON MARCHE Ju 


A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étranger, l'équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge : L'O.I. teste pour vous les micros et 

iciels qui apparaissent sur le marché. ll vous dit lesquels choisir et pourquoi, Vous êtes déjà 
équipé et vous souhaitez tirer le maximum de votre machine ? Les spécialistes de L'O.L vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL. 





